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In an early issue of BEEBUG we mentioned that a section of the operating system 
ROM (in fact 3/4k at &FCØØ) is not used because the input/output devices (such as 
the video controller chip, the disc interface etc) are located there. We hinted that 
there might be some interesting data stored there. Now that the 1.2 operating system 
has become available, several members have checked this section of the ROM 
externally. This is what it reads in version 0.1: 


yt vedi aM 


ed 
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The new operating system contains a different version of this message with some 
corrections and some altered acknowledgements. You may be interested to compare the 
two. i 


If you would like to take a look for yourself, using the Beeb, you will need a 
machine code monitor written entirely in machine code itself, and not making use of 
Basic. BEEBUGSOFT's EXMON is suitable for the job. First install the old g.1 ROM in 
one of the spare ROM sockets (leaving 1.2 in the operating system socket). Change 
the contents of address FE30(hex) so as to select the paged ROM socket containing 
the Ø.] ROM. The far left socket is selected with &FC (ie ?&FE30- &FC), the next, 
&FD, then &FE, and &FF. Now use EXMON to examine the contents of &BCØØ to BEFF. To 
look at the 1.2 version, swap over the two ROMs, and repeat the exercise. 


Thanks to Richard Jozefowski, I. Sommerville and M. Christiansen for the answer 
to the riddle. 


Ld 


This month's hint winners are Malcolm Inglis (£10), Richard Bean (£5) 
and Bob Tennent (£5). 


TE TN 


BEEBUG MAG June 1983 Volume-2  Issue-2 


GENERAL FEATURES 


Acorn's secret message 


Sound Wizard 


Using Printers 

View or Wordwise 

Software Update 
(Moonlander & isiro erakon). 


Ellipto 


Adventure Games Review 
Arcade Games High Scores 12 


Procedure Library 13 
(Machine Code Within Basic) 

Hobbit Floppy Tape Reviewed 14 

Brain Teaser- 3x+1 Problem - 15 

Multi Programmed Function Keys 16 

Centring Joysticks 19 

Book Reviews 2Ø 


(James & Atherton) 
Rotating & Expanding Characters 22 


Using Files (pt 3) 25 
Wordwise Update 27 
(Printer Hints etc) 
FX Call Update 28 
New Operating System Roundup . 30 
Disc Program Relocator 31 
Seikosha GP100 Dump Revisited 32 
Postbag 33 
Software Update 41 


(Magic Eel & Masterfile) 


HINTS, TIPS & INFO 


Quick Key Check | 

Musical Keyboard? 

Losing Lines Through Function Keys 
Text Input Containing Commas 
Variable Data 

Faulty Data 

Multiple TABs in Wordwise 
Single Key Save 

No Disc Filename 

Saving Space in Function Keys 
Software Display Switch 
Unresponsive Epson 

Text Search 


PROGRAMS 
Sound Wizard 4 
Ellipto 10 
Multifunction Keys ] 17 
Multifunction Keys 2 18 
Character Manipulation 24 
. File Handler 25 
Disc Program Relocator 31 
Seikosha Dump : 32 
Return of the Diamond 35 
Hedgehog 38 


BEEBUG MAG 


June 1983 


Volume-2 lssue2 — - 


This program allows the user to 
Produce a variety of sound effects by 
combining any one of the preset sound 
envelopes with  user-chosen sound 
parameters. There is a facility to 
display the sound and envelope 
parameters chosen at any point so that 
they may be 'copied' into any program. 


Type the program in and RUN it. The 
computer should ask you: 
Which sound channel (9-3) 
Which envelope number (1-n) 
where n is the number of envelopes 
that you have defined 
Choose pitch (0-255) 
Choose duration (60-255) 


The sound will then be heard, and 
the SOUND parameters displayed. You 
may now enter a new set of parameters, 
or if you press ESCAPE the computer 
will tell you at which program line the 
appropriate envelope is to be found 
(for you to transcribe into another 
program). 


If you wish to add envelopes (or 
change them), it would be best if the 
number of the envelope corresponded 
with the line number where it is to be 
found, for example envelope ] is 
currently at line 10, envelope 6 is at 
line 60 and so on. You should NOT 
renumber as this will confuse 
correspondence. 


It should be noted however that only 
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y à 
1.2. If you are using ie old 
operating system, then don't type in 
lines 58 to 80. You may of course 
choose which four of the eight envelope 
definitions to put into lines 10 to 4f. 


Given below are some examples to 
try: 


ENVELOPE PITCH DURATION 
1 1 200 40 
] 2 200 50 
] 3 4 100 
g 3 5 4G 
] 4 5 160 
1 5 200 150 
] 6 Ø 18 
1 7 20 190 
g -—— — — 
Ø REM | SOUND WIZARD 
1 ON ERROR GOTO 2600 
5 E=Ø 


19 ENVELOPE 1,1,-15,-15,-15,230,230, 
230,30,5,0,-10,126,126 

20 ENVELOPE 2,1,4,2,-2,5,5,5,120,0,0 
,-8,126,0 | 

38 ENVELOPE 3,1,6,Ø,-6,2ØØ,1ØØ,2ØØ,1 
0,2,0,—1,120,110 

49 ENVELOPE 4,1,—50,—50,—50,20,—-20,2 
0,20,4,0,—5,120,90 

58 ENVELOPE 5,1,-1ØØ,1ØØ,-1ØØ,1ØØ,-1 
00,100,20,10,0,—10,100,90 

60 ENVELOPE 6,1,10,10,10,230,230,230 
¢127,1,8,-1,126,126 

70 ENVELOPE 7,3,0,1,0,0,255,0,127,0, 
0,—-127,126,126 

80 ENVELOPE 8,3,0,0,0,0,255,0,127,0, 
0,—127,126,126 

90 CLS | 

109 PRINT'CHR$141;CHR$148;" SOUND WI 
ZARD BY ALAN WEBSTER" 


110 PRINTCHR$141;CHR$148;" SOUND WIZ . 


ARD BY ALAN WEBSTER" 


120 PRINT" ENVELOPES 1-8 DEFINED " 
130 PRINTTAB(Ø,5);" Channel Envelope 
Pitch Duration" 2n 
140 INPUTTAB(1,7) ,C: INPUTTAB (19,7) ,E 
158 INPUTTAB(2Ø,7) , P: INPUTTAB (27,7) ,D 
160 SOUND C,E,P,D 

178 PRINTTAB(Ø,16);"SOUND ";C;",";E;" 


r" 3P;",";D;SPC(1ØØ) ; 


180 PRINTTAB(Ø,7) ;SPC(4Ø) ; TAB(9, 15) ;" 
30 


ENVELOPE ";E;SPC(5) ;:VDU 


198 GOTO 199 

200 ON ERROR OFF 

218 IF ERR<>17 REPORT:PRINT " at line 
"; ERL: END 

220 IF E=Ø PRINT''':END 

230 PRINTTAB(0,20);"LIST line ";19*E 
240 END 
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USING PRINTER 


S 


by David Graham 


A printer is probably the first peripheral that most people buy for their micros 
after a cassette recorder and TV. Following our review of printers in issue 9, here 
are some notes on using printers with Beeb, explaining screen dumps, the advantages 
of parallel over serial printer interfaces, and generally how to get a printer up 
and running on the Beeb. 


Most popular printers are easy to 
hook up to the Beeb, and can be easily 
controlled to produce text or program 
listings. The commands for this are all 
available directly from the keyboard. 
You do not need one of the many screen 
dumps published in this magazine - 
these are for producing graphics 
printouts, of which more later. 


SERIAL OR PARALLEL 
Printers can be connected to the 


Beeb (on the model B only) through one 
of two so-called 'ports' - the serial 
(or RS423) port, or the parallel port. 
Generally speaking you are better off 
with the latter configuration, since 
the Beeb assumes a parallel port unless 
informed otherwise. You can also print 
a catalogue of the contents of a 
cassette with a parallel printer, but 
not a serial one. Most popular printers 
can be purchased with a lead ready-made 
for the Beeb's parallel port, though it 
should be said that parallel port 
cables tend to be more expensive than 
the serial ones. 


If you are using the serial port, 
you must execute two FX calls at some 
point after switching on (or resetting) 
the Beeb, and before attempting a 
printout. The first is *FX5,2. This 
tells the machine to route information 
to be printed, via the serial interface 
socket. The second is *FX 8,N where N 
is a number which determines the data 
transmission rate (or baud rate). Your 
printer manual will tell you which rate 
to use, and you can get the 
corresponding value of N from the 
BEEBUG reference card, page 3. | 


The commands for printout are the 
same for either printer interface (the 
only difference being that the parallel 
port does not require FX 5 and FX 8 to 
be used beforehand). If you type 
VDU 2 «ret 
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on, and any text going to the screen 
(as the result of a PRINT statement, or 
the LIST command) will be printed. The 
printer is turned Off using 
VDU 3 «return». Alternatively you may 
use CTRL B (i.e. press CTRL and B at 
the same time) and CTRL C to start and 
stop printing. The VDU 2 and 3 calls 
can be used within a program - as can 
the FX calls, but nothing may follow an 
FX call in a line of Basic. Thus the 
following will print the word "Bananas" 
on the printer, and "Bananas" and 
"Oranges" on the screen: 


18 VDU 2 
20 PRINT "Bananas" 
30 VDU 3 
40 PRINT "Oranges" 


If you want to send text to the 
printer only, you can use the command 
VDU 21 to turn off the VDU, and VDU 6 
to turn it back on again afterwards. 
You cannot use the more obvious *FX3,3 
for reasons discussed elsewhere in this 
issue. Thus the following program will 
print the word "PRINTER" on the printer 
only, and "SCREEN" on the screen only: 


18 VDU 2,21 
20 PRINT "PRINTER" 
30 VDU 3,6 
49 PRINT "SCREEN" 


In line 18 two VDU calls (ie. VDU 2 and 
VDU 21) have oen Mendes for reasons of 
es 

Note: If your printer does not perform 


‘auto line-feeds, you will need to do 


one of two things to achieve paper 
advance at the end of a line during 
normal printing - either set the 
auto-line feed switch found inside many 
printers, or execute  *FX6 before 
printing - this allows the Beeb to send 
line-feed characters. If your printer 
does perform auto line-feeds, then *FX5 
will double-space vene: It may be 
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CONTROL CHARACTERS 
Most printers use certain characters 
for control purposes. For example, if 
you send character 14 to an Epson 
printer, it will begin to print 
double-width characters. Character 19 
will cause a line feed, and on many 
printers character 12 will cause a form 
feed. Your printer manual will give a 
list of these codes. You may notice 
that some are preceded by the word 
"Escape" or ESC. This means that two 
characters must be sent to activate a 
given feature. Thus for example on an 
Epson, "ESC E" is given as the code for 
turning on emphasised character 
printing. This just means that the 
control code consists of two 
characters, a 27 followed by 69. 27 is 
the ASCII code for Escape, and 69 is 
ASCII E (see BEEBUG reference card, 
page 5). | 


To send control codes to a printer 
on the Beeb, you must first send VDU 2 
to turn the printer on (not required on 
OS 8.1), then VDU 1 must precede EACH 
VDU control code. Thus to initialise 
emphasised character printing on an 
Epson requires the following. 

18 VDU 2,1,27,1,69 

20 PRINT "This is Emphasised" 


As in the earlier example, the VDU 


calls have been strung together. 


The user keys can conveniently be 
programmed for use with the printer. 
For example *KEYØ VDU2,1,27,1,69|M will 
set key Ø to give the Epson emphasised 
character code. Note that the character 
before the M in this string is a 
vertical slash character found on the 
key to the left of the left cursor key. 
The serial FX codes can be conveniently 
programmed also - but remember to put a 
carriage return (ie. |M ) between each. 
Eg *KEY@ | M*FX5, 2| M*FX8, 4|M*FX6|M 


QUICK KEY CHE 


it will test all keys except CTRL and SHIFT, 


J SCREEN DUMPS 


Use INKEY(-129), optional brackets, 


all the INKEY with negative argument stat 


Most, but not all, modern dot matrix 
printers (ie printers whose letters are 
made up of collections of dots rather 
than daisywheel types which give solid 
letters) may be used to. print dot 
patterns as well as text; some daisy 


wheels are also capable of this. In 


this former mode data is sent to the 
printer | which specifies not which 
letter of the alphabet to print, but 
which combination of dots to put on to 
the paper at any given instant. Using 
this facility it is possible to 
reproduce screens of graphics in modes 
9, 1, 2, 4 and 5. Such a translation 
from dots on the screen to dots on the 
matrix head can be performed by a 
So-called screen dump program. 


As its name implies, this dumps the 
contents of the screen on to the 
printer paper. If the dump is written 
in Basic it can take up to 20 minutes 
to dump a screen, but in machine code, 
times of better than one tenth of this 
are possible. See BEEBUG vol.l no.9 for 
machine code dumps for the Seikosha and 
Epson. 


REFERENCES 


a) BEEBUG Vol.1 no.l p.20 Installing a 
parallel printer port (but note that 
the Beeb PCB error mentioned here has 
been fixed on production machines). 


b) BEEBUG Vol.l no.9 p.8 Machine Code 
Dumps for Seikosha GP 100 and EPSON FT 
80 & FT 100. 


c) BEEBUG Vol.1 no.1@ p.9 Printer 
Review - including Seikosha GP1@@ and 
Epson FT8Ø and 1909. 


to test if ANY Key is being pressed. Like 
ements, this tests the keyboard and not the 
buffer, but, unlike the 'normal' negative INKEY, which can only test a specific key, 


(including the 'soft' keys). 


It is negative true logic, ie IF NOT INKEY(-129) will indicate a key IS being 
pressed, whilst IF INKEY(-129) will indicate if a key is NOT being pressed. Richard 
. Bean. | | 
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VIE\ 


WORDWISE 

Supplier: BEEBUG 

Cost: £40 all inclusive 
£45 with new ROM 


VIEW 

Supplier: Acornsoft 

Cost: £59.80 inc VAT and new 
ROM if requested 


plus £9.95 Tape to configure printer 


WORDWISE is a word processing system 
that has been ayailable for several 
months and has become very popular with 
BEEBUG members. Now, other rivals are 
emerging to challenge WORDWISE, in 
particular, VIEW from the Acornsoft 
stable. Before writing this review, I 
had not used either of these two 
systems before, although I am familiar 
with other word processing systems. 


WORDWISE impressed me very quickly 
as it was easy to install the chip, the 
WORDWISE manual was straightforward and 
easy to follow and I had no difficulty 
in starting to enter some text. All 
text entry takes place in mode 7 which 
is easy to read but, of course, gives 
no feel for the final formatted 
appearance of the document. The cursor 
control keys, by themselves, and also 
in combination with SHIFT and CTRL 
keys, enable the cursor to be moved 
very quickly backwards and forwards 
through the text. Using WORDWISE for 
this is really very nice indeed. The 
usual tasks of deletion and insertion 


of text also proved very easy to 
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REVIEW 


master. There is no specific command to 
delete a line of text, though CTRL/A 
Seems to cope with deleting blank lines 
quite well. 


There is also a search command using 
a function key, but this only allows 
you to search for a single character 
which is not very useful. However, if 
you return to the main menu, option 5 
allows you to search for a whole string 
of characters and replace each 
occurrence with a new character string, 
which is much more useful. There is 
also a function key which allows you to 
delete from the position of the cursor 
up to a single specified character, 
which again is rather restricting, and 
even if you repeat the process till all 
the appropriate text is deleted, the 
process does not behave in a logical 
way. Large areas of text are best 
deleted by setting markers at the start 
and end, and using a different function 
key to delete marked text. Similarly, 
whole sections of text can either be 
moved or copied to a new position in 
the text, all very useful and very 
easy. | 


fiis Y KOR 
Ped xe e 
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In order to see the formatted 
appearance of the text, you need to 
return to the main menu where option 7 
displays the formatted text on the 
screen in mode 3, an 80 column mode. 
All formatting is controlled by special 
commands which are embedded in the text 
of your document but not printed. All 


such commands are displayed in green 
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when editing text, which is an 
excellent idea. All the commands have 
default values, so it is only necessary 
to include them when you want to format 
differently. The range of commands is 
very comprehensive. However, the fact 
that you can only see the formatted 
text by returning to the main menu and 
selecting option 7, I find rather 
tedious and time consuming and the 
inability of  WORDWISE to perform 
on-screen formatting, the most serious 
disadvantage of the system. This is 
particularly true when setting up 
tables and other critical text layouts. 


Having said that, the great virtue 
of WORDWISE is its ability to let you 
get on with the job and not to stand in 
your way. Because of this most people 
will, I am sure, put up with the few 
disadvantages for the sake of its power 
and simplicity. 


Like WORDWISE, VIEW is supplied as 
firmware - in fact VIEW is in ROM, 
while WORDWISE is in EPROM. Fitting was 
again quite easy but using the system 
proved more difficult initially. After 
Some frustration and not a little heart 
searching I eventually discovered from 
the manual that VIEW is selected by 
typing *WORD and not as I had logically 
expected  *VIEW. Unlike WORDWISE, you 
are not presented with an initial menu. 
Instead you need to know what commands 
to type in - back to the manual (there 
are two manuals actually). To start 
creating a new document requires the 
command NEW followed by hitting the 
ESCAPE key. 


VIEW differs from WORDWISE in that 
text is formatted on the screen as it 
is entered, allowing you to see much 
more clearly how the final pages will 
appear. You will also see a ruler at 
the top of the screen. The ruler is a 
line of characters showing the position 
of the left and righthand margins and 
the positions of any tab stops. VIEW 
allows you to use up to 100 different 
rulers within any one document. Each 
ruler controls the formatting of text 
up to the next ruler. The top line of 
the screen also contains additional 
information on which of several. options 
are currently selected. 


In VIEW, all the editing functions 
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SHIFT and CTRL keys giving some 39 
functions plus the cursor control keys 
as well. This avoids the use of any 
control keys, but the function key 
layout is not that obvious and takes 
Some getting used to. In general, VIEW 
will perform all the functions and 
formatting of WORDWISE and some extras 
as well. VIEW also allows the screen to 
Scroll horizontally covering lines of 
up to 132 characters. Splitting and 
joining lines is easy and also line 
deletion. Markers (up to 6) can be used 
to mark sections of text for deletion, 
moving or copying. Using the ruler 
facility, you can very easily reformat 
text, with or without justification. 
VIEW also uses the equivalent of the 
embedded commands used by WORDWISE but 
with VIEW the commands are inserted in 
the lefthand margin of the screen 
rather than in the text itself. Again 
the facilities are similar with several 
extras. 


Both VIEW and WORDWISE provide a 
range of more advanced features. 
However, most word processing users 
tend to use only a relatively small 
proportion of the total facilities 
available, and it is from this point of 
view that I have tried to sum up the 
relative merits of these two systems. 
WORDWISE really is easy to use, It 
positively encourages you as you are 
using it. For many, these virtues and 
its lower price will be sufficient 
reason for purchase. It is ideally 
suited to the home hobbyist. For those 
who will need to handle more complex 
text layouts with documents running 
into many pages, the on screen 
formatting and use of rulers by VIEW 
will ultimately save much time and 
provide a more powerful environment for 
this type of work, once the initial 
learning difficulties are overcome. For 
those who are used to sophisticated 
word processing packages on business 
micros, VIEW will still leave a lot to 
be desired. 


In conclusion, if I was buying a 
word processor for myself then I think 
my choice would be WORDWISE; if I was 
buying for my work, (i.e. not paying 
for it myself) then I know I would 
choose VIEW. 
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WORDWISE will work with any printer 
that works with the BBC micro. You 
configure WORDWISE for your printer 
directly using *FX commands (if 
required), and embedded format 
commands. These may be incorporated 
into the function keys, and loaded from 
tape or disc as explained in  BEEBUG 
vol. ] no. 18 p. 4l. 


VIEW needs to be configured if you 
want to use the special features of a 
given printer (e.g — 


emphasised print etc.), and a tape can 
be purchased at £9.95 for this purpose 
for the following printers: 

Ricoh, Qume, Diablo, Olivetti, Epson 
and the NEC spinwriter. 


MOON LANDER 


underline, 


sufficiently high resolution. 


EDITORIAL AFTERWORD 

We have been using Wordwise to 
produce the whole of  BEEBUG magazine 
for several months, and are extremely . 
happy with it. Because of this we are 
biased in favour of Wordwise - and for 
this reason we commissioned the 
impartial comparative review presented 
here. We feel however that we must add 
one point regarding Wordwise's use of 
mode 7 for text entry. This mode was 
chosen to leave as much memory free for 
text as possible; but even more 
important, to enable it to be used with 
an ordinary TV (monochrome or colour) 
or with a colour monitor. The full 
on-screen formatting provided by VIEW 
requires one of the $80 column modes, 
and these necessitate the use of a 


monochrome monitor. Televisions 
(monochrome or colour) and even normal 
colour monitors do not give 


Contrary to rumours the  BEEBUGSOFT version of  Moonlander WILL run on a 16k 
machine, but you must type PAGE=&BØØ «return» before loading it. 
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ASTROTRACKER COLOUR CHANGES 
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ASTROTRACKER has a facility to alter the colours used. This is achieved as 


follows: alter line 1190 of the header program to 


1198 ?&8E-f:?&8F-b where f and 


b are numbers between @ and 7 representing the colour of the foreground and 
background respectively. See BEEBUG reference card for details. The flashing colours 


have no effect. 


MUSICAL KEYBOARD ? | | 
To obtain one of the wierdest musical keyboards you are likely to find, type in 
?&FEA0-Q and press return. Alan Webster | | 
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LOSING LINES THROUGH FUNCTION KEYS? 
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Derek Chown says that if you are not careful you can lose program lines when 
using function keys. You might type a number, for example, then accidentally press 


a function key. 
CTRL/U character (not VDU 21) first: 


To eliminate the risk, arrange for the function keys to send a 
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This is a relatively short program 
which produces varied patterns by 
plotting a succession of filled 
ellipses of random size. The ellipses 
have the same centre, and the pattern 
is gradually built up using so-called 
"exclusive or' plotting (achieved with 
the GCOL 3,1 statement in line 138). 

. This program uses mode 4 and gives 
patterns on a black background. It is 
part of a set of three similar 
programs, one of which produces colour 
displays. The full set is supplied on 
this month's cassette. 


10 REM Ellipto 

20 REM An extract from S.Wilkinson's 
30 REM Ellipse Plotter 

40 MODE7 

50 PRINT 


TEXT INPUT CONTAINING COMMAS 


NU ELLIPTO (16k/32k) 


by Simon Wilkinson 


60 REPEAT 

7Ø INPUT"Mode Ø or 4 ",M$ 
80 UNTIL M%=4 OR M$-0 

90 MODE M$ 

100 IF M$-0 M$-2 


138 
149 
159 
160 


170. 


189 
19g 
200 
210 
220 
230 
249 


250 


118 VDU23;82902;0;0;0;0 


120 


bo wei ntt Poma 


wes aia A R 


GCOL3, 1 
C%=RND (7) *16+16 
FORA-] 6TO51 2STEPC% 
FORB=1 6TO51 2S TEPC$ 

L$——-A 

MOVELS , Ø : DRAW-L$ , Ø 

FOR Y%=4 TO B STEP4 

X$-A/B*SQR (B*B-YS*YS) /M$ : X$-X9$*M$ 
MOVE X$,Y$:DRAW -X%,Y% 

MOVE X$,-Y$:DRAW -X%,-Y 

NEXT Y$ | 

NEXT, 
A=GET:CLS:GOTO1 40 


If you want to input text that has one or more commas in it, there are two 
methods that you can use. The first is to use INPUTLINE, eg: 


10: INPUTLINE A$ 
2Ø PRINT A$ 


and the second method is to enclose the text in 


the short program: 
1@ INPUT AS 
20 PRINT AS 


quotes when inputting it, eg. using 


as a test, run it and type in "A,B,C,D" with the quotes and you should see that the 
output from line 20 has no quotes, but does contain the commas. 


It should be noticed however that the first example only works with keyboard 
input, whereas the second method works for any channel. C.Opie & A.Webster EE 
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This month our 


software review covers adventure games. These are not real-time 
action games, but games where you converse in English with the computer 


to move 


around in an imaginary world and accomplish certain goals, like hunting for treasure 
etc. If you have never played an adventure game, it is difficult to explain how they 
can be so entertaining or so addictive. The fact that they ARE is underlined by the 


TITLE :Adventure Quest 
BY :Level 9 PRICE :£9,95 
Reviewer :J. Gregory 


In this game you are an apprentice 
magician and are the only person who 
can find the four stones needed to 
enter the tower to defeat the Demon 
Lord. I found Adventure Quest 
confusing. I have not made a great deal 
of progress with it but like all good 
things it is addictive. There are 
problems mapping this game initially 
because when you are killed, (and 
resurrected), you are transported to a 
location which is not easy to place in 
relation to the previously mapped 
sites. However, persevere and all will 
become clear in the end. This game only 
allows you to carry a limited number of 
objects so you must plan carefully. 


TITLE :Firienwood 
BY :M P Software PRICE :£6.50 
Reviewer :J. Gregory 


The quest in Firienwood is to find 
the magic Golden Bird of Paradise which 
has been imprisoned in a castle in the 
middle of an enchanted wood. In return 
for its freedom the bird is said to 
give you health, wealth and prosperity. 
Being a machine code program the 
response time is extremely fast. An 
annoying feature to me, is that there 
seems to be a creature that appears at 
random and kills you without warning. 

One point to remember about this 
game is that when you are asked if you 


would like another game, only press "y" 

without a «return», otherwise you will 
lose the program. Bearing in mind its 

price I consider Firienwood to be good 
value for money. 


TITLE :Xanadu 
BY :Hopesoft PRICE :£7.75 
Reviewer :J. Gregory 


On the face of it this is a standard 
"find treasure and kill dragons" 
adventure with a nice touch at the 
finish. However some of the treasures 
move about each time the game is 
played, thus making each game slightly 
different. There is also a facility for 
one or two players. The two players can 
be allies or in opposition and this can 
be changed during the course of the 


game. It also differs from other 
adventures in that there is no maximum 
Score; your score is based on the 


number of moves, number of enemies 
killed and the treasures found. 


TITLE :Sphinx Adventure 
BY :Acornsoft PRICE :£9.95 
Reviewer :A. Webster 


Sphinx Adventure was my first real 
try at an adventure game and I found it 
totally captivating. Now, having tried 
more adventures, I must say that this 
remains my favourite. There are some 
awkward problems to get around, for 
example, getting a jack out of a pit, 
which took me nearly a week to figure 
out. 

The object of the game is to collect 
treasures and take them to the Sphinx. 
During the game some nasties will 
appear to try to rob you of some 


valuable items, either that or they try 
to kill you. 
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I have nearly completed this game on high this game will appeal to most 


Several occasions but still can't find adventure players and even 
the valuable box of matches that I non-Adventure players like me because 
need! it is very witty in many places, for 
Although the price is relatively example, try killing the giant rabbit. 
k 
Save No. of Price Overall 
Game Colour Locations Speed inc.VAT Value 
Adventure Quest Y N 225 HARK £9.95 KKKKK 
Sphinx Adventure N N 144 kkk £9.95 ERER 
Xanadu Y Y 1@3 dX £1.15 WENN 
Firienwood Y Y 60+ docete £6.50 ERER 


VARIABLE DATA 


Incidently, has anyone else noticed that you can include variables in data 
statements? When read they act as if the value of the variable itself was written 
in its place. H.A. Fraser. 


[If you would like more on this see article on 'Debugging' in vol.l no.6 p.20. Ed] 


EMM MM SC COOOOOQOOOOO0O0O0 OO OO OO OO OO OOOOOQOOO C OO ROO OO DC tt en AK IKK SKE SSE SK KA I SSE ETE EAE EEEE E E E EE E E E A E E E EA E EE 
Soe o o eto estn. O00070" aoe" o "o"e" 0 e"o" a"n e"o" u" o"e o" o" o o"e o"e o"e" e"o" o" "o"e" e 0 0" SETENE EEE 
CM MM MM eRe Re et he ad ad ae oat ad ad al a ad ad hd ad daar ar ea aD Daa mae Ie I Be ee SSS RN EE ae a ee ae he he he he he te he TETTE EE EO 


FAULTY DATA 

Nik Kelly knows of a quirk of DATA/READ/RESTORE which may have confused Beeb 
owners who are accustomed to other micros. Most machines will find DATA wherever 
you put it. The BBC (BASIC 1) is more fussy. If you tag DATA on the end of the 
line where it's wanted, you will either get "Out of Data", or read the DATA from 
somewhere else. Using RESTORE to your current line, (YES ! It WILL Renumber 
correctly!) , will astonish you with "Out of Data at line....". 

Before you despair, look closer. The Beeb is dropping the first item. To outwit 
it, put a dummy Ø or just a comma ahead of your DATA. eg: 

10 RESTORE 10 :FOR N-1 TO 3 : READ M: PRINT M: NEXT N: DATA gligizyl3 
will happily produce 11, 12 and 13 as its output when RUN. 


> 


Wondering why you can't get more than one TAB indentation at the beginning of the 
line by hitting TAB two or more times in succession ? The secret is to type (e.g. 
for a triple indentation): TAB <space> TAB <space> TAB. A.W. Rowe. 


OOOO 
oe eee 


eee we 
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by Brian Carroll 


a ST 4^ A , 
4$ «e à 4e ( 


The useful procedure below provides for the insertion of machine code 
directly into an area of memory, and may be appended to any Basic program. 
It is a good deal more concise than using Assembler mnemonics. It is also 
pretty indecipherable for anyone who wants to protect his machine code. 


The machine code must be placed in line 20020 of the procedure as a 
series of hex bytes with no Separators. As an example the procedure as 
given contains a sequence of code to fill the screen in mode 7. 


You put the procedure on to the end of the Basic program that is to be 
used with it, and call it using PROCp code(addr$), where "addr$" should 
be replaced by a numerical address of the first byte of the block at which 
it is to be stored. In the example line 10 calls the procedure, which 
places the code into memory at address &BØØ, while line 20 executes it. 
As it stands the code will fill the screen with discontinuous white 
blocks. To alter the character used, change FF on line 20020. Replacing 
it with the value 20 will clear the screen. | 


One way to find out what the sequence of code should be for other 
machine code programs is to assemble your original machine code routine, 
at the place in memory where it is to run from, say &DØØ; and then get a 
print out in hex as follows: 

FOR A=ØTOn : PRINT"? (&D@@+A) ; : NEXT 
where n is the number of bytes of code used. 


4*0 90 99 09€ 0 0 € € 6 9 9 0 € 0 0 9 O 9 0 9 9 0 € HORE 9 GO O O 0 9 0 O 0 O nere O GO € O O € à GO M € GO O € O 9 O O O O9 € O € HS 9 OO ee G O 9 E 0 8 CO GO € e 6 6 0 9 0 6 o 0 oo *, 4*5 o o o o o o ano o on Pon ona e ete ete te ee en eto ee” 
one a ero 0 0 0 0 00 08 06 88 00.00.0106 0 60 2 6 06 00 88 6.00 66880 6 0 8 0.800.066 0.0.8 0 600 6 6 8 6 6 DEEDE E CO COE OCC DERE SE DE DEE OR OU LOK OC LOOK CONOCE OK OR LOOK OK OK OR OR DENE NEIDEN III 
DEE DE IDE JEG IS IG PSI IFE IIS IEEE ahd hd hd ae eh he ee he hee ae eh a eee IIS I SJ PSP 60 0.0.0.0.0.0.0.0.0.0.0,.0.0.0.0.0.0.0.0.0.4.9.0,9.0.0 0,0 ,0.0,0 9.9 9 6 9 0,0,0 0 0,0,0,0, 0.0.0, 9,9. DERE 0, 9.0.0. 


18 PROCp code (&BØØ) DØE96Ø" 
20 CALL &B@@:REM *ROUTINE* 20030 FOR Z%=1 TO LEN(codeS) STEP 2 
30 END 20040 addr%? (Z$DIV2) -EVAL("&"-HMIDS (co 
20000 DEFPROCp code (addr%) de$,2$,2)) 
20010 LOCAL Z%,code$ 20050 NEXT 
20020 code$="A97C8571A9ØØ857Ø18AØØØA 20060 ENDPROC 


_OFF91701 8A5706901 85704571 690085710980 


B.J. Bailey has found it useful to store the current name and version of a 
program in a variable. He does this on the first line of each program that he 
writes, eg: 

10 PROGS = "TESTv.1" 

The effect of this, apart from giving the name and version at the top of a 
listing, is that a function key can be programmed to provide a  'single-key' save. 
The key is programmed by: 

j *KEY 8 SAVE PROGS|M 
This itself could be incorporated as a line of the program (line 20, say). 


Notice that using this method means that the program must be RUN before being 
SAVEed. [This idea uses the rather odd fact that you can save a program 
dynamically (ie. using a variable as a filename) when the call is made from a user 
key, though not when it is made from within a program. Ed] i 
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IT FLOPPY TAPE REVIEWED 


by Colin Cohen 


Hobbit floppy tape system from Ikon Computer Products, Kiln Lane, Laugharne, 


Carmarthen, Dyfed, Wales. 
Telephone (099421) 515. 


Cost: £155.25, second drive £138 including VAT. 


Tested on O.S 1.2 with Wordwise. 


It is claimed that Hobbit will also work on OS Ø.1. 


The Hobbit is a so-called "floppy 
tape" unit which plugs directly into 
the Beeb providing program and data 
Storage with some of the facilities of 
discs, but at a lower cost. The device 
actually stores programs digitally on 
Philips mini cassettes similar to the 
38-minute audio tapes used in some 
dictating machines. The tapes cost 
around £3.00 each, and will store about 
60k bytes on each side. 


The Hobbit plugs into the BBC user 
port (not present on a model A) via a 
twenty-way connector, while power is 
taken from the BBC's power out socket 
(not present on early  Beeb power 
supplies), and so does not need mains 
voltage or a transformer. A second 
drive can be chained from the first and 
neither arrangement requires the disc 
interface or modification to the 


cassette interface. It is possible to 7 


switch from Hobbit to tape and vice 
versa by the commands *TAPE or *HOBBIT. 
Firmware is provided in the form of an 
EPROM. 
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It will fit in any of the empty 


COPY or APPEND (to each other) files. 
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28-pin sockets alongside 
the Basic and OS ROMs - 
if socket  ICl00 is 
vacant you only need to 
Slip it in and move the 
link marked 18 over. If 
this seems too 
complicated Ikon will do 
it for you for an 
additional £5.75. The 
only other chore is 
formatting new tapes. 
This takes about three 
and a half minutes per 
side following the 
command *FORMAT NAME and 
is by far the slowest 
Hobbit function. A 1ØøØøk 
disc takes around half a 
minute by contrast. 


With the exception of 
the cassette eject button on the 
Hobbit the system control is from the 
keyboard. In other words fast forward, 
rewind and play/record are all looked 
after by the operating system. In 
Basic the Hobbit index is very helpful 
and the single command *CAT will 
display up to 60 eight-character file 
names (as against the ten of. the 
cassette filing system, or the rather 
limited 7 of the disc system), each 
prefixed with a number. Data or 
programs can be LOADed or RUN from the 
index page by keying the number or name 
followed by f8 or f9, and sitting back. 


Unwanted files can be deleted by 
*DELETE NAME =- though data files need 
to be followed by: D, which is one of 
the many points not made in the first 
round of documentation.  *RECOUP brings 
files back from the dead (if you have 
not already written a new file), while 
*KILL is by far the fastest command 
available and will wipe a whole tape in 
no time at all. You can also RENAME 
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The most important information not 
documented is the warning not to leave 
a tape in the drive at power on/off. 
If you do you may (as I did) corrupt a 
block which will inhibit LOADing the 
file back. Most BBC OS commands can be 
used, but not normally in abbreviated 
form: you have to use *CAT and not *. 
and you cannot interchange lower case 
with capitals in OS commands or file 
names. You can switch to Wordwise with 
*W, — but if you want to get back you 
need *BASIC, as *B. does not operate. 
Other  undocumented items are the error 
messages such as  CHECKSUM, HEADER, 
CLOSE FILES and SGN. 


The read/write | speed is 750 
bytes/second as against the 150 of the 
cassette, and 11,500 of the disc. The 
actual speed improvement, over the 
cassette filing system, will depend on 
the sort of file that you are making: 
for | instance there is a certain 
'overhead' when it comes to making a 
file - the Hobbit has to find a place 


D.T. Goodwin informs us that when using 


to open a file with no filename. Whilst you can still use this file on the disc 
cannot be deleted with the DELETE command. 


to write it and the fuller the tape is, 


15 


the more it may have to hunt for a 
place to save it. Average access time 
is said to be 20 seconds with a maximum 
of 98 seconds. You must then add the 
time to save or load the program 
itself, at around one fifth of the time 
for loading from ordinary cassette. 
The disc system by contrast will save 
or load 20k bytes in just 5 secs. This 
includes access time. 


The single Hobbit costs about four 
times more than an expensive tape 
recorder, which does not sound 
unreasonable. Comparisons with discs 
are perhaps less favourable. The Hobbit 
costs about the same as a ]100k disc 
drive (as supplied by Microware for 
example - Acorn'S own are more 
expensive), but the disc user must add 
the cost of the disc interface. However 
discs are £1 or £1.50 cheaper than the 
Hobbit cassettes, and this price 
differential will make serious inroads 
into the apparent relative economy of 
the Hobbit over a floppy disc. 


the disc operating system it is possible 


it 


To overcome this you can use the '*WIPE 


*" command selectively (a further safeguard when using WIPE would. be to lock all 


BEEBUG MAG 


files except the one with the blank filename). 


June 1983 


Volume-2 . Issue-2 


16 


ry o Hm 
hi b Ie 

é 5 P 
ENS. NL EN 


LAMMED FUNCTI 


ON KEYS 


AS David ee K Sn and Tim ee 


The BBC micro's funetion umm are 


an extremely precious resource. So 
precious that 19 (or 15) keys are 
just not enough. In this article we 
show three ways to multiply the 
effective number of useable keys. By 
such methods, you can achieve 49 or 
more individual functions. 


The three different methods 
presented use different techniques, 


and are suited to different 
applications or machine 
configurations. They can be 


summarised as follows: 


1) DISC METHOD 
Here different key | setting 
programs are loaded in from disc 
using function key 9. It can be 
used in immediate mode (ie. 
outside a program). 

2) MULTIPLE STRING METHOD 
Different key settings are loaded 
in from a resident program using 
function key 9. It can be used in 
immediate mode (ie. outside a 
program) . 


3) MULTIPLE KEY SELECTION WITHIN A 


PROGRAM 

Different combinations of the 
function keys and «shift», <ctrl>, 
and «tab? keys are detected with 
the INKEY command, and direct a 
program to different routines. 
This method can only be used from 
within a program. 


DISC METHOD 


The | simplest version of this 
method uses just two sets of key 
definitions, and pressing f9 at any 
time switches between them, by 
calling the alternative key-set 
program from disc. Since this is 
achieved with *LOAD (rather than a 
Basic program) it is done quite 
invisibly, and only takes 1 second to 
complete the change. 

The pair of key-sets are prepared as 

follows: 

1) Program function keys Ø-8 with 
various functions required for set 


1. It might be advisable to do 
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this via a Basic program so that 
you have a record of your 
settings. 


2) Set key 9 as follows: 
*KEYO*L.2|M 

3) Save this set as follows: 
*SAVE "1" BØØ+1ØØ 

4) Clear the machine and repeat 
operation 1 for the second set of 
keys 9-8. 

5) Set key 9 as follows: 
*KEY9*L.1|M 

6) Save the set with: 
*SAVE "2" BØØ+1ØØ 


The task is now complete, and any 
time you press key 9 you will 
alternate the key settings. To use 
from cold, type *L.] . «return» 


You could, if you wish, use *MOTOR 
(or *M.) to switch the cassette motor 
light on and off to tell you which 
key-set is in use at any time, and 
you could increase the number to say 
three sets, making set 1 load set 2, 
set 2 load set 3, and set 3 load set 
lə You could also use the INKEY 
command (as in the next method) to 
detect CTRL, SHIFT etc, and *LOAD 
different keysets from disc 
accordingly. 


MULTIPLE STRING METHOD 


Using this method, nine of the 
function keys (fü to f8) have 
assigned to them three different sets 
of strings (eg. Basic statements). 
The set which will be active at any 
one time is selected by 
simultaneously pressing function key 
f9 and either the SHIFT, CTRL or TAB 
key. AS you can see from line 12, 
each time key f9 is pressed, the 
program is re-run, and it checks for 
the SHIFT, CTRL or TAB keys in lines 
14 to 18, and then loads the keys 
accordingly. 


The following simple program 
should first be typed in and saved on 
cassette or disc with the name 
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1Ø*FX15,1 
12*K.9 RUN|M 


1] 6IFINKEY (-2) THEN PROGnid:GOTO 22 
18IFINKEY (-1) THEN PROClower :GOTO 22 
2ØGOTO1 4 
22END 
24DEF PROCupper 
26*K.Ø DIM P%-1:P.HIMEM-P%|M 
28*K.] *FX 
30*K.2 READ 
32*K.3 DATA 
34*K.4 RESTORE 
36*K.5 ENVELOPE 
38*K.6 CHRS 
4Ø*K.7 VDU23, 
42*K.8 VDUI9, 
44ENDPROC 
46DEF PROCmid 
48*K.Ø MOVE 
50*K.1 DRAW 
52*K.2 PLOT 
54*K.3 GCOL 
56*K.4 SOUND 
58*K.5 INPUT 
60*K.6 INKEY 
62*K.7 LEFTS( 
64*K.8 MODE 7|M 
66ENDPROC 
68DEF PROClower 
70*K.0 DEF 
72*K.1 PROC 
74*K.2 REPEAT 
76*K.3 UNTIL 
| 78*K.4 COLOUR 
. 80*K.5 FOR 
82*K.6 NEXT 
84*K.7 TAB( 
| 86*K.8 RND( 
| S8ENDPROC 


To use this key definition system 
during the development of a program 
you first CHAIN it in, eg: 

CHAIN "KEYSET" 
and then hit either the TAB, CTRL or 
SHIFT key once the routine is known 


to be running. With the  KEYSET 
program supplied the keys will be 
programmed as follows: 

Set : TAB CTRL SHIFT 

fÜ memory MOVE DEF 

fl *FX DRAW PROC 

f2 READ PLOT REPEAT 

f3 DATA GCOL UNTIL 

f4 RESTORE SOUND COLOUR 
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l4IFINKEY(-97)THEN PROCupper :GOTO 22 


function keys to be set. 
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£5 ENVELOPE INPUT FOR 


£6 CHR$ INKEY NEXT 

£7 VDU23, LEFTS( TAB( 

£8 VDUI9, MODE7|M RND( 
reset reset 


f9 reset 


So, if your first key strike after 
CHAINing the  KEYSET program was 
SHIFT, the function keys would be 
programmed with DEF,PROC,REPEAT etc. 


Once this stage has been reached 
you can start to develop your new 
program. It is important that you 
begin the program starting from at 
least line 
routine takes up lines before this. 
Each time you need one of the 
alternative sets simply hit function 
key £9 (which will re-run the KEYSET 
program) and then hit the appropriate 
selection key (ie. TAB etc). 


To actually run your program you 
could either execute, in immediate 
mode, the command GOTO<start line of 
your program», or you could delete 
the KEYSET routine from the 
beginning. The first of these two 
options is preferable in that you 
don't end up losing the routine and 
hence have to perform a ‘merge’ to 
get it back. 


By changing the KEYSET program you 
could permit more sets to be 
available or change the assignment of 
the keys, or both. A well thought out 
range of assignments can save an 
awful amount of time during the 
typing in of a program and greatly 
reduces the chances of a keyword 
typing error. 


MULTIPLE KEY SELECTION WITHIN 
A PROGRAM 


This method is easy to perform on 
a series one (eg: OS 1.2) operating 
system, but is a little complex on O5 
0.1. We will give the 05 1.2 
solution first, followed by brief 
notes on how to implement a version 
for earlier systems. 


The new operating system has a set 
of FX calls (*FX225-*FX228) to enable 
the so-called  'base' number of the 
When you 


100 because the KEYSET. 
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press the function keys together with 


either SHIFT, or CTRL, or both, a 
character code is generated. These 
codes are normally set to give useful 
Teletext control codes (see hints in 
BEEBUG vol.] no.9 p.31 or, in Mode7, 
try SHIFT £3 followed by some text - 
it will appear in yellow). The FX 
calls mentioned above can be used to 
determine which character codes the 
keys produce. 


The skeleton program below uses 
these calls to set the keys so that 
they will give characters with codes 
from 149 to 179. This is achieved in 
PROCInitialise. PROCFunctionKeySelect 
sets up a loop with the GET function 
and searches for one of these codes - 
given by a function key on its own, 
SHIFT function key, CTRL function 
key, or SHIFT/CTRL function key. A 
corresponding value for variable 'K$' 
between ] and 4Ø is then generated 
and returned. The ON GOSUB selection 
Statement at line 200 in the main 
program then directs execution to one 
of 49 subroutines placed at lines 
3100 onwards: 


* o" o" e^o o ea IK DDD DDE NEDE 9 9 P ow 9 9 6 9 0 9 O 6 9 O 6 6 O 0 € € € € € O 9 6 0 oo DENNE AK IE DEINE 970,9, 9 9 0, 9 0 0 DO 
id ‘+ 80-8 0.0.0.6 6 0 r 9 € 6 0 € to ee o ooo O 6.9 
COS ate e I Ne 9,94949,4999 91955,9919, , 4*4, 5*5 ad at S e e e e e e e e a ere ete etate P a aL 


FO OOOO eee OH Oo 9,5,9 0.0,9,0,0, 0,00, 0,0 6 9,9 9,9 6,9, 0, 0 9,0, 0,0 0 90,9 O 0,9 9,9,0,0 c'e» eee eee 


IØØREM This program shows you how to 


11@REM select up to 40 routines by 
120REM using the function keys. 
T4ØREM By T F Powys-Lybbe & BEEBUG 
150: 

16ØREM MAIN PROGRAM 
17@PROCInitialise 

18@REPEAT 

198PROCFunctionKeySelect 


2000N K% GOSUB 3100,3200,3345,.....,4000 


219UNTIL finished=TRUE 
220END 

230: 

1000DEF PROCInitialise 
1ØØ5f inished=FALSE 
1Ø1Ø*FX225,14Ø 
1Ø2Ø*FX226, 159 
19030*FX227,160 
1Ø4Ø*FX228,17Ø 
1120VDU15:CLS 

11 4ØENDPROC 

115@: 

2000DEF PROCFunctionKeySelect 


2020REPEAT:K$-GETs:UNTILK$»139 ANDK$«180 


2025K$-KR3-139 , 
2050ENDPROC 
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3000REM INITIAL STAGE SUBROUTINES 
3100REM £9 command 

31 SØRETURN 

32ØØREM £1 command 

3335RETURN 

3345REM £2 command 

35ØØRETURN 

351Ø: 

3520: 

4ØØØREM £9 and «shift» command 


4010 PRINT"Are you sure you want to exit? 


(Y/N) "; 


4020REPEAT: AS=GETS : UNTILINSTR ( " YNyn" , AS) >Ø 


4Ø5ØIFINSTR("Yy" ,AS) >Ø finished=TRUE 
AØGØPRINTAS' 


43ØØRETURN 
431Ø: 
SØØØREM PROCEDURES & FUNCTIONS 
5Ø1Ø: 
5020: 
If you have the earlier 46.1 


operating system then you can achieve 
a similar effect by first defining 
each of the 18 keys, in 
PROCInitialise, to produce a single 
character as follows: 


*KEYØ |!|L 
*KEY] |!|M 
*KEY2 ...etc 


These are detected by the same form 
of REPEAT loop in 
PROCFunctionKeySelect as used above, 
with the GET statement, but using 
limits of 139 and 15@ instead. The 
simultaneous pressing of SHIFT, CTRL 
etc is then detected by a set of 


negative INKEY functions. The 
variable K$ is assigned a value 
between 1 and 4Ø by subtracting 139 


(as above) and adding on either 19, 
28, or 30 depending on the results of 
the INKEY tests. From this point on 
the program would proceed as for the 
OS 1.2 version. 


Although only a skeleton program 
is shown it is easy to see how the 
concept can be used in practice. 
Using function keys instead of having 
to type in options (particularly 
"word" options) during the course of 
using a program is very neat and 
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CENTRING JOYSTICKS 


obtains auto-centring ANHØ] joysticks. 


For certain programs that use 
joysticks the ideal type of joystick 
would be one which auto-centres. The 
ANH@1 model is widely used amongst Beeb 
owners but it does not auto-centre, 
that is until now! 


The drawings themselves are so clear 
that they need very little further 
comment. Here however are four points 
worth noting: 


1) Make sure that the implement you use 
to make the slots has a well 
insulating handle, or it will be 
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by F. Laude 


Frederic Laude, a French member, provides a 


2) 


3) 


4) 
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series of sketches explaining how he 


more than the plastic which gets 
burnt. 

Try not to inhale too much of the 
fumes given off - they can be pretty 
obnoxious and may even be toxic. 
Make sure the slots are big enough 
for good strong elastic bands. The 
two options shown for 'locking' the 
bands in place will depend 
more-or-less solely on the length of 
the bands. 

When making the slots be careful not 
to stick the heated 'poker' too far 
in as you may end up with a drooping 
joystick lever! 
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BBC BOOK REVIEWS 


Book: The BBC Micro - An Expert Guide (155 pages) 
By: Mike James | 

Pub: Granada Publishing Ltd 

Price: £6.95 paperback 


Reviewer: Colin Opie 


The book is certainly not aimed at the newcomer, and it covers a lot of ground, 
as can be seen by a list of the contents: 


BBC Computer Hardware BBC Basic 
Machine Operating System Video Display 
Sound Generator Interfacing 


Intro to Assembly Language Assembly Language II 


Mike James does point out in the 
Preface that: "..even in a book of this 
length there must be more unsaid than 
said", and my initial. question was 
whether or not a book of 155 pages, 
(which I do not consider to be as long 
as Mike James implies), can actually be 
sub-titled 'An Expert Guide'? 


In general I did find that the 
individual chapters supplemented the 
User Guide very well. Both hardware and 
Software are discussed, for each of the 
topics covered, where this is 
applicable. Coverage of VIA, ACIA and 
ADC port addresses and programming was 
thorough, although it was largely 
assumed that 'trying things out’ was 
the responsibility of the reader's | 
imagination. An example of how he does supplement the User Guide is found in the 
chapter on Basic. This is in two main parts: a) How is it different from other 
Basics? (eg. Procedures, Repeat-Until), and b) Explanations on how the Interpreter 
runs, how programs are stored, Garbage Collection etc. 


For the most part Mike James' explanations are thorough, and I found the chapter 
on the Sound Generator to be particularly clear in this respect. The chapter on 
Interfacing is restricted to the Analogue inputs and the User Port, but within these 
confines the text is again quite clear and readable. The two chapters on Assembly 


Language give a good grounding for starting work in this area, and there are a few 
'worked' projects as examples of Assembly programming. i 


From a production point of view I thought it a shame that the book had no 
appendices for quick reference, This is particularly pertinent in that the Contents 
and Index are a bit skimpy. Program listings are clear and well presented but still 
printed by a dot matrix printer. I realise this is one of my hobby-horses but it is 


a pity as the rest of the book is very clearly set out, with a good quality 
print-face. | 


In conclusion, and indeed to answer my own question, I would say that the book is 
too small to be a true 'expert guide' (such a guide would more likely be a suite of 
books). However it is not a ‘novice guide’ but rather an excellent text for the 
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person who is getting to grips with BBC computer terminology and who wants to expand 
his. knowledge without having to break the bank. The Basic programmer can buy it and 
learn a bit more about hardware (or Assembler), and vice versa. It is good value for 


Book: Structured Programming With BBC Basic (207 pages) 


By: Roy Atherton 
Pub: Ellis Horwood/Heinemann 
Price: £6.58 paperback or £12.50 hardback 


Reviewers: Sheridan Williams 


Roy Atherton is perhaps the arch 
proponent of Structured programming 
languages, and has long been a critic 
of Basic. BBC Basic is, however, in a 
different class from "ordinary" Basics, 
being endowed with many of the features 
found in languages like Comal and 
Pascal. i 


The theme behind this book is to 
encourage the processes that PRECEDE 
programming - problem analysis and 
design. With this aim in mind it is 
not a book to be taken light heartedly, 
rather, it is a very serious book with 
a lot of very good material in it. 
There are many worked examples and 
solved problems. The book uses BBC Basic in the majority of its examples, making it 
very easy to work through. 

I thoroughly recommend this book to those of you who want to take the art of 
programming seriously; it will teach you the CORRECT way to program. 


The book itself, is cleverly structured making it of use to both the beginner 
(before he picks up bad programming habits) and the experienced programmer who is 
ALREADY practising bad habits. A glance at some of the chapter headings will show 
you that this is no ordinary book on programming: 


The Computing Process Logic, Colour and Control 

Data Representation and Manipulation Procedures, Parameters and Functions 
Shapes and Procedures Data Structures 

Decisions and Special Characters The Anatomy of a Program 


In conclusion the author gets my greatest admiration for a book that is totally 
devoid of those dreadful GOTOs. If everyone wrote programs like this the job of 
understanding and debugging would be vastly easier. i 


SAVING SPACE IN FUNCTION KEY DEFINITIONS 


Malcolm Inglis offers the following tip for publication in your magazine. You 
can save space in the function key buffer by using BASIC tokens rather than source. 
'Broken bar/exclamation mark’ in *KEY definitions causes &80 to be added to the 
ASCII value of the immediately following character, so any required token can be 
generated by |! followed by the appropriate character. For example: 

*KEYØ |!q|!3|M ! 
occupies only 3 bytes and may be used instead of *KEYØ PRINT RND |M 
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AND 


Program tested on 
O.S. 0-1 and 1:2 


This is a collection of short programs in assembly code which will manipulate any 


printable character (alphanumeric or 


user defined) in a variety of ways. These 


procedures can be used in many ways, for example: 


(1) Produce quadruple sized text in 
any mode (except mode7) 

(2) Producing new character 
definitions (for games etc.). It 
is possible to produce giant 
invaders or inverted frogs or 
rotating munchy-men or whatever, 
from previous, character 
definitions without having to work 
out the new definitions. 

(3) Labelling the vertical axes of 
graphs, diagrams,etc. 


The program listed at the end of the 
article | contains two parts, the 
assembly code for the character 
manipulation - this is contained within 
the procedure PROCASS listed from 250 
to 990. The procedure is called in line 
70, and assembles the machine code into 
the RS423 buffer at &AØØ. You can 
change the address by 
altering .line 350. The 
machine code program is 
subdivided. into five 

routines which may 
E each be called 

Separately. The five 
calls and their functions are given in 
the table. 


The remainder of the program, lines 
1@ to 240, sets up a demonstration of 
the routines, and when run, it results 
in any letter entered from the keyboard 
being printed to the screen in a 
variety of ways - reflected, rotated, 
inverted and expanded. Inspection of 


this program will show how to call and 
use the various routines, but here are 
a few additional examples: 


All operations must 
begin by setting X% 
equal to the ASCII code 
of the character to be 
manipulated (it can be 
one that you have 
defined yourself) and 
then calling Getchr. 
Use the BEEBUG 
reference card, page 5 
to get ASCII codes - eg. 
ASCII 75 = "K", If you. want to 
manipulate your own characters, first 
define them with VDU23 (see User Guide 
p.384 or BEEBUG reference card p.5), 
and then set X$ to the character number 
that you have chosen (avoid values 250 
to 254 since these are used by this 
program). 


To take a real example, we will 


manipulate a space invader. Line 19 


below creates this as character 224 
(try executing VDU224 after this in 


modes 4 or 5). Line 20 stores the 


character in the locations reserved by 
the manipulator routine. To rotate the 
invader you simply call the routine 
"Rot" (in line 30 below). rotation 
and inversion routines 'Rot’ and 
"Invert' put the new character into 


character 250, so to PENE it, line 4g 


is used below: 


18 VDU23, 224, 69,126, 219, 255,126,68,66, 36 
20 X$-224:CALL Getchr 
30 CALL Rot 


40 PRINT CHR$25Ø 
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To turn it on its head, add: 


5Ø X3=25Ø:CALL Getchr 
60 CALL Rot 
7Ø PRINT CHR$25Ø 


This picks up the rotated invader, and 
rotates it once again. 


The following sequence will produce an 
' expanded version: 


X$-224:CALL Getchr:CALL Expand 
The easiest way to print it is to 
define a variable say 'character$' as 


follows: 


character$=CHR$251+CHR$252+CHR$19+CHRS$8 
4CHRS8-CHR$2534CHR$254 


then PRINT character$ will print the 
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expanded character, and this can be 
TABbed to anywhere on the screen. 


Here are two further examples: 


X$-ASC"W":CALL Getchr:CALL Rot:PRINT CH 
R$25Ø 


would print a letter "W" on its side. 


PRINT" " :X3=ASC(""") «CALL Getchr :X%=25Ø 
«CALL Rot:CALL Getchr:CALL Expand: PRIN 
T CHRS251;CHR$252'CHR$253;CHR$254 

would produce: 


NOTE 1: The code is loaded between &AØØ 
and &AFF.This APPEARS to be safe and it 
leaves &DØØ to &DFF free for a printer 
screen dump. If you do not trust this 
or you are using the RS432 interface 
you must relocate the code elsewhere. 
This is done by changing line 350 in 
PROCASS from  P$-&A00 to  P%=(new 
location) 
NOTE 2: The code can be saved without 
the BASIC assembler. This is done by 
running the program then typing: 
*SAVE"CODE" AØØ BØØ AØØ <return> 

The code will be saved on to tape or 
disc. To reload it directly into the 
memory type: *LOAD"CODE" 

and press 'play' if you are using 
cassette. If you do this you will not 
be able to call the machine code 
procedures by name .(Getchr etc). You 
must use the addresses in the REM 
statements in  PROCASS instead. For 


example, use CALL &A5D instead of CALL 


nd 
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1@ REM"Character Manipulation 
20 REM"P.Manhire March 1983 | 
30 REM"expands,reflects and/or 
40 REM"rotates characters 
50 
60 REMDEMONSTRATION PROGRAM 
70 PROCASS | 
80 AS-CHRS84CHRS$84CHR$]0:REM"BACK 2 
Spaces, DONN 1 space 
99 BS=CHRS$251+CHR$252+AS+CHRS253+CHR 
$254:REM" EXPANDED character 
188 MODE5:VDU19,2,5,0,0,0,19,3,6,0,0, 
ø 
11@ PRINT TAB(4,5);"Press any Key":C$ 
=GETS 
120 IF CS="#" THEN MODE7:END 
130 PRINT TAB(Ø,1Ø) ;"ROTATION" 
140 PRINT TAB(0,15); "REFLECTION" 
150 PRINT TAB(0,20) ; "EXPANSION" 
160 COLOUR2:X%=ASC(C$) :CALL Getchr 
178 X$2250:FOR I$-0 TO 3:CALL Rot:PRI 
NT TAB(2+18*5, 12) : CHR$25Ø:CALL Getchr :N 
EXT 
180 X%=25Ø:CALL Getchr:CALL Invert:CA 
LL Getchr:FOR I$20 TO 3 
190 CALL Rot::PRINT TAB(2+1%*5,17) :CH 
R$25@:CALL Getchr :NEXT 
200 X%=ASC(C$) :CALL Getchr :X%=25Ø 
210 FOR I$20 TO 3:CALL Rot:CALL Getch 
r:CALL Expand:PRINT TAB(241$*5,22);B$:C 
ALL Getchr :NEXT 
220 COLOUR3:PRINT TAB(4,6);"or # to s 
top":GOTO 118 
230 REM"END OF DEM. PROGRAM 
240 
250 DEFPROCASS 
260 REM"Assembles code at &AØØ 
270 REM"Relocate if RS423 is used 
280 REM"CALLS NAME ADDRESS 


290 REM" Getchr 
300 REM" Rot 

310 REM" Putchr 
320 REM" Invert 
330 REM" Expand 


34g FOR J%=Ø TO 3 STEP 3 
350 P%=&AØØ 
360 [OPT Ø 
378 .Getchr 
3890 Needs 


398 STX &7Ø:STX &8Ø:LDXH&7Ø:LDY fØ:LD 
A #10 

409 JSR &FFF1:LDX#&8@:LDY #@:LDA #10 

419 JSR &FFF]:RTS 

420 .Rot 

439 N'tseiekk 

440 LDX $&71:LDY #&88 
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4560 
460 
478 
. 480 
490 
500 
519 
520 


530 
546 
550 
560 


578 


580 
598 
600 
619 
620 
630 
646 
650 
660 
670 
680 
6990 
79090 
718 
720 
730 
740 
750 
760 
7170 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 


. 880 
1890 
| 900 
J 910 


920 
930 
946 
950 
960 
970 
980 
999 
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.Loop:ROL Ø,X:TXA:STY &79:LDX &79 
ROL @,X:TAX: INX:CPX #&79:BNE Loop 
LDX #&71:DEY:CPY need: BNE Loop 
LDX 14250 

.Putchr 
Nkdedek 

LDA #23:JSR &FFEE 
TXA:JSR &FFEE 
LDX #&81 

eLoop2:LDA Ø,X:JSR &FFEE 
INX:CPX #&89:BNE Loop2:RTS 


o Invert 
LDX #&71:LDY c 
Nee 
ə Loop3 
LDA Ø,X:STA Ø,Y 


INX:DEY:CPY $&8Ø:BNE Loop3 
LDX #250 = 
JMP Putchr 

. Expand 

Nkr 

LDX 4251 :STX&8E gere 
LDX HØ:STX &8C:STX &8D 
LDX #&71:STX &8A 

LDX #&81:STX &8B 

JSR Qchr 

LDX #252:STX&8E 

LDX #@:STX &8C:STX &8D 
LDX #&71:STX &8A aiii 
LDX #&81:STX &8B:JSR Ochr 

LDX #253:STX&8E 

LDX fØ:STX &8C:STX &8D 

LDX #&75:STX &8A 

LDX #&81:STX &8B :JSR Qchr 

LDX 14254:STX&8E 

LDX #@:STX &8C:STX &8D 

LDX #&75:STX &8A 

LDX #&81:STX &8B :JSR Qchr 

RTS 

eQchr 

ə Loop5 

LDX &8A:ROL @,X:LDX &8B:JSR Enter 
LDX &8C:INX:STX &8C:CPX #4 

BNE Loop5:LDX $0:STX &8C:LDX &8A 
INX:STX &8A:LDX &8B: INX: INX 

STX &8B:LDX &8D: INX:STX &8D 

CPX #4:BNE Loop5:LDX &8E:JSR Putc 


RTS 

eEnter:BCS Full 

CLC:ROL @,X:CLC:ROL Ø,X:INX 
CLC:ROL @,X:CLC:ROL Ø,X:RTS 
Full 
SEC:ROL @,X:SEC:ROL @,X: INX 
SEC:ROL @,X:SEC:ROL Ø,X:RTS 
] : NEXT : ENDPROC 
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Although many people manage for 


some time using cassettes, particular 
types of files and file processing 
requires discs. This part of the 
series of articles on files discusses 
a very important and major topic 
which is only really applicable to 
disc based systems. 


The advantages of discs are twofold: 

1. The program need not be 
constructed as one LONG program, 
but can be written as several 
shorter ones linked (CHAINed) via 
a main menu. l 

2. The whole file need not be read 
into main store in its entirety, 
but simply a single record at a 
time. This means that the only 
limiting factor on file size is 
the disc's capacity, and with the 
PEOPLE file defined last month , 
you should be able to hold about 
AØØØ records even on a 1@@k disc. 


However the way in which you 
process the file will be critical. 
If it is processed ‘serially’ then 
you will have to reduce this by at 
least a factor of two, unless you 
have twin disc drives or double sided 
drives. This is because a serial 
file requires that two files be open 
simultaneously, one for reading, one 
for writing; they are invariably of 
similar size. 


I will now give details of how to 
append (add to the end) of a serial 
file. You should note that a serial 
file can only be opened for input or 
output, and not both at the same 
time. This means that you cannot 
simply read the file to the end and 
then write more data to it. The 
process is to create a new file and 
open it for output. Read a record at 
a time from the input file and then 
write it to the new file, when all 
the copying has been done you can 
then add any new records to the end 
of the new file before closing it. 
Once that is complete you can proceed 
to re-name the files so that your 
program 


work next t 
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USING FILES (Part 3) 
by Sheridan Williams — 


The reason for including line 10 
is because if the file "PEOPLE" does 
not exist (probably because this is 
the first time that you have run the 
program) then it cannot be opened for 
reading. It is therefore opened for 
writing and then closed before line 
10g is executed again, and now Lt 
obviously DOES exist although it 
contains nothing. 


If you wish to use variable file 
names you could input them at the 
start, but would have to access the 
" Command line interpreter" as 
described in the article "Passing 
Filenames to the MOS" in BEEBUG vol 1 
no 18 p 31. 


Processing a file  serially 
involves reading successive records 
from the file one at a time until we 
require to read no more. Suppose 
that we had a file of 3000 customers 
on a disc and they were held in 
alphabetical order, further suppose 


that we wished to examine the record 


for the customer named "Zulu 
As this reco 
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virtually at the end of the file we 
will have to read nearly 3008 records 
until we read the one that we want, 
You should note that whereas it 
wouldn't take long to read 3999 array 
items, it will take several minutes 
to read 3000 disc records, and this 
time might be prohibitive in many 
situations. 

One answer is to use the PTR# 
Statement which allows you to control 
where in the file to read/write next. 
For example PTR#c=1234 will instruct 
the file pointer to move to the 
 1234th character in the file. Beware 
though, because you dare not execute 
an INPUT# from this position because 
you may have moved the pointer into 
the MIDDLE of a number or string on 
the file, and INPUT# will then give 
an error. There is another problem, 
how do you know where to move the 
pointer to gain access to the 2994th 
record say? All this sounds very 
vague so let us immediately move on 
to two other main methods for 
processing files. 


"| DIRECT ACCESS FILES 


Type ] - Random access 

A random access file is one where 
you can move directly to any record 
and read, alter or write a record at 
that position. When the file is 
opened it is available for reading or 
writing or both. These types of 
files must really have fixed length 
records in order that you can 
calculate the start address for any 
record. If the records were not of 
fixed length then the act of 
overwriting one record with another 
that is longer would erase part of 
the succeeding record! 


Type 2 - Index Sequential Files 

This type of file is really a 
combination of two files - the 
'index' file, and the 'data' file. 
When a record is required to be 
accessed the index is looked up first 
to find the address of the record on 
the data file. It is a combination 
of serial and direct access, and most 
frequently the index file is read 
into main store (into an array) in 
order to reduce the access time. If 
the index is too big to fit into main 
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because 
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has to remain on disc, or just part 
of the index is read into main store. 
The index comprises only the 'key' 
field and the address of the record 
on the main file. This requires 
extra storage space on disc but this 
penalty is offset by the speed of 
access. If the index was in main 
Store then any record could be 
accessed in less than 1 second. 
Another advantage is that records may 
be of variable length, and this may 
Save more space in the file than the 
index itself occupies, resulting in 
an index sequential file occupying 
less space than its random access 
equivalent. 


PRACTICAL USES OF RANDOM ACCESS FILES 
LL—A—A—A———M—M—M—À————M 


Using the "People" file whose 
record description I gave in part 1 I 
will go through an application that 
performs the following processes on 
the file: 

l. Initialise the file. 

2. Read, write, amend and delete 
records on the file. 

3. Search for records that match a 
particular specification. 

4. Sort the file on disc. 

5. Access a record by  "'person' 
number, and surname. 

To save referring back to part 1, 

here is the record description 

together with the suggested field 

lengths: | 


FIELD FIELD VARIABLE 

NO NAME NAME LENGTH 
] Surname sur$ 15 

2 Title titles 19 

3 Sex sexs ] 

4 Date of Birth dob$ 6 


Referring to page 330 of the User 

Guide we find that integers take 

5 bytes (5 characters) on the file, 

real numbers take 6 bytes, and 

strings require their length+2 bytes. 

There are two ways in which we may 

write data to the file: 

(a). Join all the fields using 
rec$=surS$+title$+sex$+dob$, and 
then PRINT#c ,rec$ 

(b). Write each on separately using 
PRINT#C ,sur$,title$,sex$,dob$ 

Method (a) has to be preferred 

a saving of 6 characters 
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results. This is because a string is 
Stored taking up two characters more 


than its length, so in method (b) we 


write 4 strings whereas in method (a) 
we only write one. You may prefer 
method (b) as it is more 
straightforward, but just suppose you 
were to be storing a 2000 record 
file, you would waste 12k of file 
space; on a 299k disc this would cost 
you over 800 records! 


With random access files we can 
still write records onto a file in a 
serial manner by successively 
PRINTing each record, however we CAN 
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write a record anywhere on the file, 


thus we ought to give each record a 


number which reflects its position 
(record. address) on the file. This 
is one reason why it appears that 
everything that is computerised seems 
to be given a number, for example 
payroll number, gas account number, 
credit card number, bank account 
number etc. The number often 
reflects the position of the record 
on the file. 


Part four continues next month. 
There will be a demonstration program 
that manipulates a random access 
file, together with notes on random 


file updating and buffers. 


27 
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ap: 
EE 

aN 

£ ND 


CALL UPDATE 


This list of new *FX calls, largely derived from Acorn, extends the listing given 


in BEEBUG vol 1, no 10, p 15, in an article on the new operating system. 


*FX13 As given in User Guide but X=7 
disables RS423 receive error 
event, and X=8 disables 
service/network error event. 

*FX14 As given in User Guide but will 
also enable events given in 
*FX13 above. 

*FX117 Returns VDU status byte in the 
X register. 

BIT @ - set if  VDU2 sent, 
cleared by VDU3. 

BIT 2- set if 'paged mode! 
on, clear if "paged mode" off. 
BIT 3- set if software 
scrolling (there is a 
text window), clear if 
hardware | scrolling (no 
text window). 

BIT 5- set when cursors 
joined by VDU5. 

BIT 7 - set if VDU disabled. 

*FX118 Returns with carry bit set if 
CTRL key is pressed. Acorn 
claims it will return with 
negative bit set if SHIFT is 
pressed, but this doesn't seem 
to work. 

*FX123 Used by the User Print Routine 
to indicate to MOS that it has 
finished its task. See *FX5,3 
in User Guide. 

*FX138 Now expanded to insert a 
character into any buffer, X 
contains buffer number (from 
*FX2] on p428 of User Guide), Y 
contains the character to be 
inserted. Useful | codes to 
insert into the keyboard buffer 


are :- 

139 COPY 

149 Left arrow 

141 Right arrow 

142 Down arrow 

143 Up arrow 

128+fn key no. (inserts 
function 
key). 


*FX141 Equivalent to *ROM, select ROM 
cartridge system. 

*FX142 Select language ROM, X contains 
ROM number, Sockets are 
numbered 12,13,14,15 on main 
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board. Using this on an empty 
Socket or filing system RO 
crashes the system. | 
*FX152 Examines buffer, buffer number 
in X. Returns with carry bit 
set if buffer empty, clear 
otherwise. According to Acorn Y 
contains the next character to 
be read (without removing it 
from the buffer) but Y does not 
seem to contain anything 
meaningful. 
*FX153 Inserts a character into a 
buffer as for *FX138 but can 
only be used for X=@ or 1 and 
will generate an escape 
condition if the escape 
character (set by *FX22Ø) is 
— inserted. 
*FX154 Write to video ULA (&FE2Ø). 
*FX155 Write to video ULA (&FE21). 
*FX156 Change 6850 control register - 
register becomes (Old value AND 
Y) EOR X. See 6850 data sheet 
for more information. 
*FX158 Read speech processor. 
*FX159 Write speech processor. See 
Speech System User Guide for 
more information. 


Important note - all FX calls greater 
than 166 write to &1904Call number with 
the standard form (Old value AND Y) EOR 
X so read them with X=Ø and Y=255. 


*FX179 Reset for OSHWM. 

*FX18@ Current OSHWM (Used by BASIC to 
initialize PAGE). 

*FX189 Number of ADC channels (as set 
by *FX16). 

*FX194 Flash period 2 (as set by *FX1Ø 
but this reads the value). 

*FX195 Flash period 1 (as set by *FX9 
but this reads the value). 

*FX202 Set shift and caps lock 


both off = &39 
caps lock = &29 
shift lock = &1Ø 
both on = fj. 


*FX211 Channel for CTRL-G. Default 1. 

*FX212 Envelope for CTRL-G use 
(Envelope Number * 8) - 8. 
Default 144. 
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Pitch for CTRL-G. Default 191. 
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*FX213 
*FX214 Duration for CTRL-G. Default 7. 
*FX233 As *FX231 (User Guide p.441), 
but affects system 6522, use 
with extreme care! 
*FX235 Return presence of Speech TORRENS REP APP PRI 
oe endear. PEE ae PE OER ee eT 
X-&FF Speech processor present, Acknowledgement: We are grateful 
X=&@@ Speech processor not to Acorn Computers Ltd for 
present. permission to publish certain *FX 
*FX24] Read/Write *FX1 value. calls listed above, and to Chris 
*FX242 Cassette motor status, off &64, Bingley, Clive Harris, Matthew 
on &E4. Rapier and William Lea for 
*FX243 Offset to address of real time discovering and checking some 


clock, contains 5 or 1@, clock extra ones. 


Stored at &28D + offset. 


° 
MK DC DK DP DEE DEE 075 62 0 e «7. «e DE IK 5 o a DI a a DENE e a IG PE ue To e o e 9 0,0 0 0,0, 0,0, 0 0,9 DE 9,0 0,0 0,0, DD ONO O OnO TEO nOn an 9,0, 0,9, 0, 9,9, 0,9, 0,0. 9 9 0, v, 9 9. 9... 


A FEW EXAMPLES 
As an example of the use of FX211 to 
214 try this: | 


try FX138: 
*KEY@,HELLO THERE 


- ENVELOPE3,&86,&FF,0,1,3,1,2, &7F, &FF, *FX138,0,128 Insert fü into key 
&FD,&FD,&7E,&78 buffer. 

*FX211,Ø Select Noise 

*FX212,16 Envelope 3 Also try - 

*FX213,7 Pitch 7 *FX153,Ø, 27 Insert escape 
*FX214,10 Duration 160 


character into key buffer. 
Then execute VDU7 or CTRL-G 


SOFTWARE DISPLAY SWITCH 
To switch off the TV or monitor display (via software!), hence simulating a 
switched-off machine, M.A. Ridyard suggests that you execute the following: 
VDU23; 0; 0; 0; 0; 
This does not affect your program which can be recovered as per a BREAK start, or by 
changing Mode. 
[This version of the VDU command effectively switches the display off by programming 


the video controller to use zero characters per line! Anything you type in will 
therefore be accepted, its just that you can't see it. Ed] 


16592945 ote tele etot eS ata o tata o o3 o a eS aa o oo 57 0*5 3 o 5*5 T Po Su au ND OOO Oe OO Oe CUO OOS utu tatu fu 0 0e o aa aT ane e aT o le e; ele o. e. 9.0.9.0. 0. 0,0, 9.0, 0,9, 6,0 0, 0,9. 0. 9.0. 9.9.0, 9.0, 9,0. 0, 0.0. 6,0, t, 0,0, 0. ener 


If your EPSON MX8Ø type III does not seem to respond to the control codes such as 
ESC G (double character printing mode), try issuing the command as: | 
VDU 1,27,1,70 
The VDU I command sends the next character to the printer only. This technique 
seems to solve the problem, though you must precede it with VDU 2 on the new 
operating system. Bob Tennent. 


DODGE AR 

PTT € 06 09 0» 9 0 6 6 € 9 9 € 0 0 9 e e » v JR OK DKK AGR DK o o o o o e e o o e o e o o a o o a o a e o o a o e n e n a 

iive ee ERR ES € 00.9.0. 9 0 0 0 0 o 0 0 0 LL tte Pata Se etoto o oto a ete otto Pa eese seperate Tera esse teta a etate te etate eta utet a s eta a oto e a a a o e a a a o ato e a atu eoru etre sara ce ere ore 0 o ar, 

PeSete tete ettet ata tat Tota ata atate e ete Sa ota eaae Tenere suse re sete ee n e ot, *, 7o tat o a e e e e e e eco e oce 6 LaL a a 9.9.0 0 0 t t tuo tut tun tenementa 
e*e^o*a o" e Po o e s e" se «c «009 0 e 9 * * 9 9.0.9.0.0.T.7. 

o*e "e eo a" a" e^o e" o c HOH * * 96 0906090999999 


TEXT SEARCH 
To test if a string occurs within another string M.J.Davies suggests that you use 
the Basic statement INSTR. The syntax is as follows: 


eg. IF INSTR(input$,test$) THEN PRINT"Found"ELSE PRINT"Not Found" 
where input$ is the string that you are searching and text$ is the string that you 


wish to find. | 
[This is the normal use for INSTR, but we felt it worth pointing out. Also note that 


if you have BASIC I there is a bug in INSTR in that the first string must be longer 
than the second string, or the system will crash. Ed] 
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A number of points have come to light either through experience or as a direct 
result of upgrading to the OS 1.2, as described below by various members. 


THE RS423 | | 
a) Alan Bray has a method of reconfigering the RS423 to accommodate different 
printers. The method involves altering location &FEQ8, which is the control byte 


for the RS423, by using the *FX call: *FX 151,8,value where: 


value =2 gives 7 data bits:even parity:2 stop bits. 
=6 gives 7 data bits:odd parity :1 stop bit. 


7 
=1Ø gives 7 data bits:even parity:1 stop bit. 
=14 gives 7 data bits:no parity :1 stop bit. 
=18 gives 8 data bits:no parity :2 stop bits. 
=22 gives 8 data bits:no parity :1 stop bit, (Default setting). 
-26 gives 8 data bits:even parity:1 stop bit. 

8 


=3Ø gives 8 data bits:odd parity :] stop bit. 

b) J.C.Price has just had OS 1.2 fitted and discovered that the Epson MX 280 F/T 
no longer functioned correctly via the serial RS423 port. The solution is *FX 
156,16,227, and a letter from Acorn is given below detailing this: 

"e».In your case it is necessary to set 2 Stop bits on the RS423, to do this you 
Should use: OSBYTE with A-&9C, Y-&E3 and X-4*(value from figure 1), ie. for 8 bits 
and 2 stop bits: X-&10 or *FX156,16,227. Y then sets a mask and the word select bits 
CR2, CR3, CR4 are changed with an appropriate value in X taken from the data sheet.” 


[Ed. Both methods described above alter the 6859 Control register dealing with the 
RS423 port. The second method implies access to the appropriate data sheet (see *FX 


call update elsewhere in this issue), and is a little more complicated to use than 
the first method discussed. ] 


VECTOR AT &DØØ WARNING 
Cedric Marshal warns us that the OS 1.2 now vectors the NMI on to &ØDØØ. This is 


potentially very useful, but BEWARE - using BREAK will over-write the first byte of 
any code at &ØDØØ with the instruction RTI! 


An anonymous person in Northumberland has just completed the task of modifying OS 
0.1 programs to run on OS 1.2. He writes that this should not have been necessary 
in an upwards compatible operating system but the major problem encountered was that 
VDU 21 no longer operates correctly - it does disable screen drivers but any CR code 
executed is sent straight to the printer even if the printer is disabled with CTRL C 


(if your printer has auto line feeds try pressing return key after executing 
VDU 21). 


[One way around the problem is to replace VDU 21 with VDU 28,0,90,0,0. This may be 
cancelled with VDU 26. Ed.] | 


The *FX3,N call can be used with different values of N to route output to the 
Screen, printer or RS423 in various combinations. These are detailed on page 422 of 
the User Guide. However, *FX3,3 does not work. This is a potentially useful call 
in that it is supposed to route output to the printer, but not the Screen. Acorn 


tell us that the fault is in the User Guide rather than the | system ! , 
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(When is a bug not a bug ?). In fact their quite plausible explanation is that 
*FX3,3 disables the VDU drivers, and since the print routine works through the 
drivers, it unfortunately disables the printer as well. 


There are various ways around the problem. You can in fact use *FX3,1Ø (using 
the undocumented bit 4 - see U.G. p 422). This turns off the VDU drivers, and 
therefore stops data going to the screen, but it .sends data to the printer, 
bypassing the VDU drivers. One problem with this is that it does not filter out 
control codes, so that odd effects can occur on your printer if you print control 
codes. For this reason you do not need to execute VDU 1 (or VDU 2) to get control 
codes to the printer. *FX3,1Ø is cancelled by *FX3. An alternative approach is to 
execute VDU 2,21 which first enables the printer, and then disables screen printing 
without knocking out the printer. To return things to normal, use VDU 3,6 which 
turns off the printer, and re-enables screen printing. DEG 
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"T Y Um 


In BEEBUG vol.l no.9 p.8 there was 
an article on machine code screen dumps 
for the EPSON (MX) and SEIKOSHA 
(GP8Ø/1ØØ) printers. Some members have 
written asking for the assembly listing 
of the SEIKOSHA version to help with 
debugging their copying errors and to 
learn a little more about machine code 
programming. To be fair to Terry 
Bromilow he did in fact provide a fully 
documented assembler version, (the 
magazine copy was edited and only 
showed a series of DATA statements 
holding the machine code values) . 


To incorporate the code into the 
original copy perform the following: 

a) LOAD in the original program as 

given by the listing in the 
February issue of BEEBUG (p.9) . 


KR 8 FK KIK AK. DK BK DK FK BR tne eter e ARARA ARR RARR ate o e o o a o o e o o a ee o o e a e ow 
DOODOOGODOOODOOODOO ROCII ECITAR EEES 
ar he eR NNR AR BR OR DAA AE AEEA E 0*5 o o 5 a A E AE 5 5 o a o EE 


29130 P%=TOP-174 
29135 Y%=P%: 
e and all up to **** after first use 


29140 P$1-2-&1503: REM Disables printe 
r and VDU if the m/code line is LISTed 
29145 OSWRCH-&FFEE: REM Call address eq 


uiv. to VDU statement 


29150 OSWORD=&FFF1: REM Call address us 


ed in POINT statement 
29155 LINADD-&84: 
eing printed 
29160 GBYTE -&86: 
tructed to send to printer 
29165 COLOR =&87: 
red colours 
29170 XADD =&88: 
reen for POINT call 
29175 YADD =&8A: 
reen for POINT call 
29180 OUTPUT-&8C: 
routine call 
29185 BITCT =&8D: 
29199 NULCT =&8E: 
29195 A$-0 
29200 REPEAT 


REM Bit counter 


29205 . P$-Y$: [ OPT A% Nm 


ake OPT A$ for listing 


29210 STY LINADD: STA LINADD+] NY 


address of line 


29215 LDX 40: STX XADD: STX XADD+1 \ X 


. address for POINT call 
29220 STX NULCT: STX NULCT+] 
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100 SCREEN D 


by Terry Bromilow 


REM Delete this lin 


REM Start of line b 
REM Byte being cons 
REM To select requi 
REM X address on sc 
REM Y address on sc 


REM Output of POINT 


REM Blanks counter 


June 1983 


b) DELETE lines 29130 - 29420 

C) AUTO 29130,5 and enter the lines 
as given below. (Performing an 
AUTO will save you having to type 
in the five-figure line numbers). 

d) SAVE this new copy of the program 
on a different tape or as a 
different file on disc. 


If you change the argument of OPT in 
line 29205 to A% (as suggested by the 
corresponding REM statement), and take 
out the call to the dump procedure in 
line 29080, you can obtain a listing of 
the assembled machine code without 
performing an actual 'dump' by doing a 
dummy RUN. 


This month's magazine cassette will 
contain a complete copy of the program. 


* 55659795577 9*4 7,7, 94,7545, IK IK BK IK BK SK AK AK NKK SK SKAR 9, 9 € 9 0000060609066 00906490e€90069990925292909 
EeeEBBRBIEBSRERSSRENMMMSMSPMEMNMHNMNNNNSININIINISIINIetetetetetetetette POS 
9.9.9, 9.9. e. 0, 0.9, 0,0, 9 e 0T 0, 9.0 9. 9.0.0. 0,0 9 0 0r 0 0 0 0 0 o n 0 o o o n o o^ o n e o o n o e 0 v o 5 0 o o e e n o o o o e o o o aT. 


.29225 INX: BNE nexbyte NX r 


eg always-]l (except in POINT call) 
29230 .send TXA: JSR OSWRCH: LDA GBYTE: 
JSR OSWRCH \ equiv to VDU1,GBYTE 
29235 .step LDA XADD: CLC: ADC #4: STA 
XADD: BNE nexbyte \ step to next pixel 
29240 INC XADD+1: LDA XADD+1: CMP #5: 
BNE nexbyte N &5ØØ=1 28Ø 
29245 TXA: JSR OSWRCH: LDA #13: JSR OSW 
RCH: RTS \ send endofline 
29250 .nexbyte LDA LINADD: STA YADD: LD 
A LINADD+1: STA YADD+] 
29255 STX GBYTE \ set 
GBYTE bitg (this will roll up to bit 7) 
29260 LDA #7: STA BITCT \ Coun 
t seven pixels (28 POINTs) 
29265 .byte LDA #9: LDX #XADD: LDY #@: 
JSR OSWORD \ POINT subroutine 
29270 LDA OUTPUT: CLC: BMI bit \ 
collect result. Branch if off screen. 
29275 AND COLOR: BEQ bit:NOP:NOP:SEC \ 
branch if not reqd colour 
29280 .bit ROL GBYTE \ 
roll into byte 
29285 LDA YADD: ADC #4: STA YADD:BCC co 
unt:INC YADD+1 \ step Y address 
29290 .count DEC BITCT: BNE byte 

\ six more bits 
29295 LDX i40: INX: LDY £580 

X for convenience 
29300 CPY GBYTE: BEQ nul 

\ if all 7 bits zero 
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29305 LDA NULCT: .sender BEQ send 
\ if no stored nuls 
29310 BNE sendnuls: NOP 
\ else send them 

29315 .nul INC NULCT: BNE step 

\ inc nul-count - branch if «4256 
29320 INC NULCT+1: BNE step 

\ else step hi-count 
29325 .sendnuls TXA: JSR OSWRCH: LDA #2 
8: JSR OSWRCH 
29330 

\ equiv VDU1,28 (rpt-grp follows) 
29335 TXA: JSR OSWRCH: LDA NULCT:JSR OS 
WRCH N VDU],nul-count 
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29340 TXA: JSR OSWRCH: TYA: JSR OSWRCH 
\ VDU1,&80 (nul) 
29345 LDA #@: STA NULCT 
\ reset nul-count 
29358 DEC NULCT+1: BPL sendnuls 
\ if NULCT+1 >Ø send 256 more 
29355 INC NULCT+1: BEQ sender 
\ zero NULCT+1, indirect branch 
29360 ] 
29365 A%=A%+3: UNTIL A%>3 


29370 ?P%=6: REM To re-enable VDU w 
hen LISTing 
29375 


P$-Y$: REM Last line to be de 
leted after first use KEKE 
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Program tested on 
O.S. 0-1 and 1-2 


RETURN OF THE DIAMOND (16 
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by R. McGregor 


"This is a 
Written adventure game 
for 16k machines. It is 
.the basis of an article 

that will follow in next 
month's magazine about 
writing adventure games. 

The game itself is only a 
relatively small one as 
fl adventures go, but we 
will be telling you how 
to expand it next month. 


nicely 


It involves searching 
9 for a diamond which must 
Le then be taken to the 
"Diamond Castle". On 
your way you will meet 
some nasty enemies that 
are out to stop you. 


You communicate with the 
computer through a series of 
English words such as GET, 
KILL, TAKE etc. Movement can 
| be in any of four directions 
ba and this is accomplished by 
| typing in N, S, Eor W for 
( North, South, East and West. 
_\Typing the word INVENTORY will 

tell you what you are 

carrying. 


— When playing this adventure you will 
probably need to construct a map to 
assist you in your travels. In case you 
get stuck, we will be publishing the 
map of this game next month. =: 


1Ø MODE 7 
20 PROCset up 
30 PROCtitle 
PROClook 
5 REPEAT 
REPEAT 

70 INPUT"What now",c$ 

IF LEN(c$)=Ø THEN PRINT"Eh?" 
99 UNTIL LEN(c$)>@ 


100 PRINTSTRINGS (39, "-") 

119 PROCanalise 

120 PROCtime passing m 
130 UNTIL dead OR won — Se 
140 PROCfinish | EN 
159 
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DEF PROCset_up 

DIM place$ (9) 

FOR i-] TO 9 

READ place$(i) 

NEXT i 

DATA in a hut,in a garden 

DATA in a shrubbery,on a path 
DATA on a lane,in a forest 

DATA at a dead end,at diamond cas 


DATA in a dark passage 
DIM newpos (9,4) 

FOR i-] TO 9 

FOR j=1 TO 4 

READ newpos (i,j) 


FOR i=1 TO 6 
READ item$ (i) ,itemname$ (i) ,itempo 


NEXT i 

DATA a lamp,LAMP,5 

DATA the great diamond ,DIAMOND, 7 
DATA a sharp knife,KNIFE,3 

DATA a hammer , HAMMER, 1 

DATA a mean looking gremlin,GREML 


DATA a nasty little pixie,PIXIE,9 
DIM com$ (7) 

FOR i-1 TO 7 

READ coms (i) 

NEXT 

DATA GET, TAKE, ON, LIGHT, OFF, DROP, K 


DIM direct$ (4) 

FOR i=] TO 4 

READ direct$ (i) 

NEXT . 

DATA North,East,South,West 
DIM bright$ (2) 
bright$(0)z"( It's off )" 
bright$(1)="( It's shining dimly ex 


bright$(2)="( It's shining bright ` 


on=FALSE 
reallit=2.9 | D 
lit=2 — 

position= 
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649 dead=FALSE 
650 won=FALSE 
660 moves- 
670 score=3Ø 
680 carried=Ø 
690 ENDPROC 
700 : 

7180 DEF PROCtitle 


7280 PRINT: PRINT | 
IIIIIIIIIII: 


730 PRINTCHRS132;" 
rede ee se eee | 

740 PRINTCHRS$132;" Bede ee ee ee 
de de dere ed de Å dededeeeN | 


750 FORDH=1T02:PRINTCHR$132;" **** " 
;CHR$133;CHR$141;"Return Of The Diamond 
";CHR$140;CHR$132;"  ****":NEXTDH 

760 PRINTCHRS1 32;" RHKAKKEKAKKEKEE 
Vei ÅÅÅ de Å ee ee se MG 


77Ø PRINTCHRS132;" 
kåt dåd Åke eie 
7880 ENDPROC 
790 
800 DEF PROClook 
810 IF (position=6 OR position-9) AND 
(NOT on OR (itempos(1)<>position AND 
itempos(1)<>Ø)) THEN PRINT"It is pitch 
dark." : ENDPROC 
820 PRINT 
830 PRINT"You are MESE eee dou) 
840 PRINT 
850 PRINT" Exits :" 
860 FOR i=1 TO 4 
870 IF newpos(position,i)>Ø THEN PRIN 
T direct$(i);":"; 
880 NEXT i 
890 PRINT. 
900 PRINT 
910 PRINT"You can see :" 
920 printed-FALSE 
930 FOR i=] TO 6 
949 IF itempos(i)-position THEN PRINT 
i tem$ (i) sprinted=TRUE 
95ø IF itempos(i)=position AND i=] AN 
D NOT on THEN PRINT bright$ (Ø) 
960 IF itempos(i)=position AND i=] AN 
D on THEN PRINT bright$(lit) 
970 NEXT i 
980 IF NOT printed THEN PRINT"nothing 
998 ENDPROC 
1090 
1010 DEF PROCanalise 
1020 IF LEN(c$)=] THEN IF INSTR("NESW" 
,C$)>@ THEN PROCmove:ENDPROC 
19030 IF c$="LOOK" THEN PROClook: ENDPRO 
C 
1048 IF LEFTS(cS, 3) =" INV" THEN PROCinv 
entory: ENDPROC 
1Ø5ø IF cS="SCORE" THEN PRINT"Your sco 
re is ":sscore;".":ENDPROC 


LEIIIIIIILIIII 
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1060 IF c$="MOVES" THEN PRINT"Moves ma 
de : ";moves:ENDPROC 

19780 PROCother " commands 

1888 ENDPROC 

1990 

11908 DEF PROCtime passing 

1118 score=score-] 

1128 moves=moves+] 

1138 dimmed=FALSE 

1140 IF on THEN reallit=reallit-Ø. Jedi 
mmed=TRUE 

115@ lit-INT(reallit) 

1160 IF dimmed AND lit=Ø THEN PRINT"Yo 
ur lamp just went out.":on-FALSE 

1178 won=(position=8 AND itempos(2)-8) 

1188 ENDPROC 

1198 

1200 DEF PROCmove 

1218 dir-INSTR("NESW" ,cS) 

1220 IF newpos(position,dir)=Ø THEN PR 
INT"You can't move in that direction.": 
ENDPROC | 

1230 IF (position=6 OR position=9) AND 

(NOT on OR (itempos(1)<>position AND i 
tempos(1)<>@)) THEN PRINT"You have fall 
en into a snake pit!":dead-TRUE: ENDPROC 

1248 position=newpos (position,dir) 

1258 PROClook 

1260 ENDPROC 

1279 | 

1289 DEF PROCinventory 

1290 PRINT 

1300 PRINT 

1310 PRINT"You are carrying :" 

1320 printed-FALSE 

1330 FOR i=1 TO 6 

1348 IF itempos(i)=@ THEN PRINT item$( 
i):printed-TRUE 

1350 IF itempos(i)=Ø AND i-] AND NOT o 
n THEN PRINT brights (ø) 

1360 IF itempos(i)=Ø AND i=] AND on TH 
EN PRINT bright$ (lit) 

1370 NEXT i 

1388 IF NOT printed THEN PRINT"nothing 

1398 ENDPROC 

1406 | 

1419 DEF PROCother commands 

1420 comno-FNcommand 

1438 thingno-FNthing 

1448 IF comno=Ø OR thingno=Ø THEN PRIN 
T"Sorry. I don't understand.":ENDPROC 

1450 ON comno GOTO 1460,1460,1470,1470 
,1480,1499,15060 

1468 PROCtake:ENDPROC 

1478 PROClight : ENDPROC 

1480 PROCoff : ENDPROC 

1499 PROCdrop:ENDPROC 

15ØØ PROCkill:ENDPROC 

1518 ENDPROC 
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153@ DEF FNcommand 
1540 no=Ø:i=Ø 

1559 REPEAT 

1560 i=i+1 


1570 IF LEFT$(c$,LEN(com$ (i) ))=com$ (i) 


THEN no=i | 

1588 UNTIL no>Ø OR i=7 

1590 -no 

1600 

1610 DEF FNthing 

1620 no=Ø:i=Ø 

1630 REPEAT 

1649 i=i+1 

1650 IF RIGHTS (c$,LEN(itemname$ (i) ) )=i 
temname$ (i) THEN no=i 

1660 UNTIL no>Ø OR i=6 

1670 =no 

1688 

1690 DEF PROCtake 

1700 IF itempos(thingno) <>position THE 
N PRINT"I don't see that here.":ENDPROC 

1718 IF thingno=5 OR thingno=6 THEN PR 
INT"You'll be lucky!" :ENDPROC 

1720 IF carried=3 THEN PRINT"You can't 
carry any more.":ENDPROC 

1738 itempos (thingno) =ø 

1740 PRINT"O.K." 

1750 carried=carried+1 

1768 ENDPROC 

17768 

1788 DEF PROClight 

1798 IF itempos(thingno)<>@ THEN PRINT 
"I would if you had it.":ENDPROC 

18909 IF thingno<>] THEN PRINT"You're j 
oking!":ENDPROC 

1810 IF on THEN PRINT"It's already on. 
" s ENDPROC 

182@ IF lit=Ø THEN PRINT"It won't reli 
ght." : ENDPROC 

1830 PRINT"O.K." 

1848 on=TRUE 

1858 ENDPROC 

1860 

1870 DEF PROCoff 

1880 IF itempos(thingno)<>Ø THEN PRINT 
"You're not carrying that.":ENDPROC 

1898 IF thingno<>] THEN PRINT"Come off 

iti": ENDPROC 

1900 IF NOT on THEN PRINT"It's already 

off.":ENDPROC 

1918 PRINT"O.K." 

1929 on=FALSE 

1938 ENDPROC 

1940 

1959 DEF PROCdrop 

1968 IF itempos(thingno)<>Ø THEN PRINT 
"But you haven't got that.": ENDPROC 

e itempos(thingno) i 
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1998 carried= -carried-] 

2000 ENDPROC 

2010 

2020 DEF PROCkill 

2030 IF itempos(thingno)<>position THE 
N PRINT"I don't see that here.":ENDPROC 

2040 IF thingno=5 THEN PROCkill _gremli 
n:ENDPROC 

2050 IF Hiingno= 6 THEN PROCKi11 pixie: 
ENDPROC 

2060 PRINT"You' re Joking!" 

2070 ENDPROC 

2080 

2098 DEF PROCkill gremlin 

2100 IF itempos(3)-0 THEN PRINT"You sl 
ash your knife at the gremlin and kill 
it NN 
9: ENDPROC 

211Ø IF itempos(4)=Ø THEN PRINT"You th 
row your hammer at the gremlin,but it c 
atches it and throws it back." :ENDPROC 

2120 PRINT"You fight the gremlin bare 
handed ,but only succeed in getting kill 
ed." 

2130 dead=TRUE 

2140 ENDPROC 


2159 
2160 DEF PROCkill pixie 


2170 IF itempos (4) =Ø THEN PRINT"You th ~ tag aa 


row your hammer at the pixie......A hit 
1" :i tempos (6) =-] : score=Score+1 0: ENDPROC 
2188 IF itempos(3)=Ø THEN PRINT"You sl 


ash your knife at the pixie but it dodg © 


S." : ENDPROC 

2190 PRINT"You fight the pixie bare ha 
nded but it is stronger than you th 
ought. You get killed." 

2200 dead-TRUE 


2210 ENDPROC 

2220 

2230 DEF PROCfinish 

2240 PRINT 

2250 PRINT 

2260 IF won THEN PRINT" Congratula 
tions!!! You won!!!" | 

2270 IF dead THEN PRINT" Bad Luck! 
l? You lost!!!" :score=Ø 

2280 PRINT 

2290 PRINT | 

2300 PRINT" You took ";moves;" moves 

ae 

g 

2310 PRINT" and your final score was 
"sscore;"," | 
2320 PRINT" Press SPACE to play agai 
n. 

2330 REPEAT 

2340 UNTIL INKEYS(Ø)=" " 


2359 ENDPROC 
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Hedgehog iS a 


HEDGEHOG co» 


by Alan Dickinson 


1Ø REM de dede de de de de de dede de de e de de dede dede 
20 REM * PROGRAM. HEDGEHOG 

30 REM * AUTHOR. ALAN DICKINSON 
40 REM * BEEBUG. 

60 REM **xkdkedededekdeieseiekedekdesekedekedek 
70 s 

80 ON ERROR MODE7:REPORT:END 


100 MODE2 

110 VDU23;8202; Ø: 0;0; 

120 *FX9,25 

130 *FX1Ø,25 

140 DIM RS$(9):REM ROADS 
150 DIM A$(19) :REM ACORNS 


170 PROC INTRO 
180 PROC DEFINE 


st class 190 PROC INIT 


implementation of the "Frogger" type 200 REPEAT 

arcade game. It is fast moving, 210 PROC GAME 

responsive, the graphics are good, and 220 IF S%>T% PROC TOPSCORE 
it makes pretty addictive playing. 230 PROC GAMEOVER 


Essentially you are a hedgehog. You 240 TIME=Ø:REPEAT UNTIL TIME»206 
can move left, right or "scurry". Your 250 *FX15,1 | 
aim in life is to scurry across a four 260  AS-GETS 
lane dual carriageway and busy 270 UNTIL FALSE 
jrailway track to gather acorns for 280 : 
supper. It is the rush hour, so the 298 DEF PROC INTRO 
traffic is pretty busy, which means you 300 COLOUR 133 
need concentration and good "scurry" 310 CLS 
control. If you do get run over by a 320 COLOUR 15 
juggernaut or an Intercity 125, an 3390 PRINT''" Hedgehog" 
ambulance will quickly drive to the 340 COLOUR 4 | 
scene. 350 PRINTTAB(2,14) "Controls..." 
360 PRINT'" Z = LEFT" 
55257» You have three lives, and your score 370 PRINT'" X = RIGHT" 
depends on your progress. As your 380 PRINT'" / = SCURRY" 
score increases, so the traffic gets 390 PRINTTAB(2,3)"Snatch acorns... 


Steadily worse. Playing tips: 


lsewhere in this issue. 


l. Do not roll into a ball in the 400  TIME-Q:REPEAT UNTIL TIME>3ØØ 
oncoming traffic. 410 COLOUR 8 
2. Make good use of the. rest point 420 PRINTTAB (2,30) "Press any key... 
between the road and the railway ". i 
track. | | 430  AS-GETS 
3. Do not panic at the tooting of i 440 ENDPROC 
horns. 45g : 
460 DEF PROC DEFINE l 
Instructions are given with the 478  VDU23,255,136,204,238,238,238,2 
program; and as you will see, it is 38,238,238 
well structured with some well chosen 480  VDU23,254,0,0,—-1,—1,0,0,0,0 
procuBure names like  PROC-DEFINE, 490 VDU23,252,0,-1,-1,0,0,-1,—1,0 
PROC-DRAW-SCREEN, PROC-SPLAT, PROC- 500 VDU23,251,0,0,0,0,—1,—1,0,0 
CHUCKLE etc. If you want to run this 310 VDU23,253,24,6Ø,9Ø,255,126,255, 
program from disc, you will need to use . 60,0 
the "Disc Program Relocator" given 520  VDU23,250,108,72,200,252,254,25 


1,127,698 


538  VDU23,249,24,60,60,60,0,126,00, 
24 
540 HS=CHR$17+CHRS1+CHR$253 
550  VDU23,224,15,105,105,249,255,25 
5,255,102 
560  VDU23,225,240,150,150,159,255,2 
55,255,102 
570  VDU23,226,0,0,0,126,126,126,255 
,102 
580  VDU23,227,0,126,126,126,126,126 
,255,102 
590  VDU23,228,31,49,97,255,255,255, 
255,48 
608  VDU23,229,255,36,36,255,255,255 
1:255, Ø 
618 VDU23,23Ø,248,14Ø,134,255,255,2 
55,255,24 
620 VDU23,231,0,31,17,17,255,191,25 
5,48 
630  VDU23,232,0,240,136,136,255,253 
7255,12 
640 VDU23,233, 255,255, 255,255,255, 2 
55,255, 28 
650 VDU23,234,255,239,199,239,255,2 
55,221,28 
660 ENDPROC > 
670 : 
680 DEF PROC INIT 
690 T$-500 
700  T$-"Henry Hedgehog" 
702 Sl$-" "i:g2$-" " 
704 S3$-"  ":g4$-" 
706 S5$=" " :g6$-" 
718  R$(0)-STRINGS(20," ") 
720 RS(1)=S2$+CHR$227+CHR$226+CHRS$2 
74CHR$2274CHR$225484$4CHR$2264CHR$225 
*S5$4CHR$2274CHR$2264CHR$225484$ 
730 RS$(2)=CHR$224+CHR$226+CHR$227+C 
| HR$226+CHR$226+S5$+CHR$224+CHR$226+S3$ 
. XCHR$2244CHR$2274CHR$2274CHR$226482$4C 
HR$2244CHR$226483$ 
a 740 R$(3)-CHR$2284CHR$2294CHR$2294C 
HR$230--S4$4CHR$2274CHR$ 2274 CHR$225496$ 
4CHR$2284CHR$2294CHR$2 304-8 3$2-CHR$2264C 


760  R$(5)sSTRINGS (20," ") 
770  R$(6)-2S2$4CHR$2284CHR$2294CHR$2 
9+CHR$232+S5$+CHR$231+CHR$232+S5$+CHR 
I $2334CHR$2334CHR$2324S1 $HCHR$231 4CHR$2 
| 32492$ 
780 RS$(7)=CHR$231+CHR$232+S2$+CHRS$2 
14+CHRS$232+S2$+CHR$233+CHR$232+S5$+CHR 
! $2284CHR$2324S15$4CHR$2334CHR$232485$ 
790  R$(8)CHR$23]l4CHR$2324S]$4CHR$2 
31 4CHR$2324S3S$4CHR$231-4CHR$233485$4CHR 
2314CHR$230-4S1$4CHR$231 4CHR$233485$ 


800 RS(9)=S4$+CHR$2314CHRS$2324S1S4C 


HR$231-4CHR$2294CHR$229--CHR$230--83$4-CHR 
$231 +CHRS233+S 3$+CHR$2 31 +CHR$233+S3$+C 
HR$231+CHRS$239+S1$ 

810 FOR I$-] TO 9 

820 | RS$(IS)-STRINGS (5, R$ (I) ) 

830 . RS(I$)-LEFTS(RS$(I$) ,1ØØ) 

840 NEXT 

850 ENDPROC 

860 : 

870 ps PROC GAME 

880 $=-1ØØ: LEVELS=-1 : PROC HARDER 

890 Dam 

900 REPEAT 

910  N$-N$t*]l:PROC GO 

920 UNTIL N%=3 

930 IF S%<1ØØØ ENDPROC 

940 COLOUR Ø:COLOUR 129:CLS 

950  PRINTTAB(2,18) "Bonus hedgehog"; 

960  PRINTTAB(2,20)"May the fleas"; 

970  PRINTTAB(2,22)" be with you"; 

980 FOR I$-0 TO 255 STEP] 

998 SOUND&11,-12,1%,2:SOUND&12,-12, 
2ØØ-1%,2 


. 1900 NEXT 


1018 *FX15,1 
1020  AS-INKEYS (200) 
1030  REPEAT:N$-N$41:PROC GO:UNTIL N% 

=4 | 

1040 ENDPROC 

1050 : 

1060 DEF PROC GO 

1070  X$-10:Y2$-30:2$-10 

1080 PROC DRAWSCREEN 

1090 REPEAT 

1100 PROC ROAD(1,Ø,12) 

1118 PROC ROAD(6,0,22) 

1120 PROC ROAD(7,0,24) 

1138 PROC ROAD(4,1,18) 

1148 PROC ROAD(8,1,26) 

115@ PROC ROAD(9,1,28) 

1160 PROC ROAD(7,@,24) 

1178 PROC ROAD(2,1,14) 

1180 PROC ROAD(8,1,26) 

1198 PROC ROAD(3,Ø,16) 

1200 UNTIL Y2-0 

1210 IF ACORNS$-0 PROC HARDER 

1220 ENDPROC TL 

1230 : 

1240 DEF PROC DRAWSCREEN 

1259 g 


COLOUR 129 
PRINTTAB (1,4) SPC(17) ; 
PRINTTAB(1,5)" HEDGEHOG 


PRINTTAB (1,6) SEC(17); 
COLOUR3 
COLOUR 128 


ENDPROC 


DEF PROC HOG 


PRINTTAB (1,1) ;N$; 


PRINTTAB (Ø, 10) STRINGS (20, CHR$25 


COLOUR 9 
FOR I$-0 TO 19 
IF A%(I%)=]1 PRINTTAB(I%,1@)CHRS 


NEXT 
COLOUR 7 
PRINTTAB (0, 21) STRINGS (20, CHR$25 


PRINTTAB (Ø, 23) STRINGS (1Ø,"- ") 
PRINTTAB (Ø,25) STRINGS (2Ø,CHR$25 


PRINTTAB (9, 27) STRINGS (19,"— "); 
PRINTTAB (Ø, 29) STRINGS (20, CHR$25 


PRINTTAB(1Ø,1) "Score ";S2; 
COLOUR 12 
PRINTTAB (Ø, 20) R$ (5); 
PRINTTAB (X2 , Y$) H$; 


* 
o 


IF Y%=@ ENDPROC 
IF INKEY-98 AND X%>@ PROC LEFT 


ELSE IF INKEY-67 AND X%<19 PROC RIGHT 
ELSE IF INKEY-1Ø5 PROC FWD 


155Ø 


IFZ%<1Ø IF MIDS (R$(Z%) ,X%+1,1)< 


|. »81$ PROC SPLAT 


1560 


ENDPROC 


1570 : 


1580 
15990 
1600 


1626 
1630 
1640 
1658 
1669 
1670 


DEF PROC LEFT 


X$-X$-]:PRINTTAB(X$,Y$)H$;" "; 


ENDPROC 
1619 : 
DEF PROC RIGHT 


PRINTTAB(X2,Y2)" ";:H$;:X$-X24] 


iM. 


DEF PROC FWD 


IF Z$-1 AND A%(X%)<>1 SOUND 1,- 


(7 15,40,1:ENDPROC 


1680 
1699 
17808 
o l$; 
1718 
1726 
1730 
17468 
1758 
17668 


1780 
17990 


Y$-Y$-2 
Z$-2$-] 
PRINTTAB (X% , Y$) HS; TAB(X$, UR 


SOUND 1,-12,22Ø,1 

SOUND 2,-12,232,1 
S$-52-410 

PRINTTAB (10,1) "Score "SZ; 
IF Z3=Ø PROC CHUCKLE 


ENDPROC 
1778 : 
DEF PROC ROAD(R%,D%,SY%) 


Ld 


IF D%>@ R$(R£)-MIDS(R$(R$),2,99 


) +LEFTS (R$ (R$) ,1) ELSE R$(R%)=MIDS (R$ ( 
R$) ,1ØØ,1) +LEFTS (R$ (R$) ,99) 


1800 
1819 
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COLOUR (R$MOD5)-2 
COLOUR 128 


© 1820 PRINTTAB(9, SY) LEFTS (RS (R$) ,20) 


1830 IF SY$-Y& PRINTTAB(X%,Y%) HS; 

1840 PROC HOG 

1850 - IF Y$-SY$ IF MIDS(R$(R$) ,X%+1,1 
)<>S1$ PROC SPLAT 

1860 IF RND(80)-80 SOUND3,-15,1,1Ø:8 
OUND2,-15,9,8:S0UND1,-15,17,2 

1878 ENDPROC 


1880 
18990 
1900 


19198 
1920 
1930 
1948 
1950 
1960 
1976 
1988 
19968 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 


DEF PROC SPLAT 


IF Y%=Ø ENDPROC 

COLOUR 14 
PRINTTAB (X2 , Y$) "*"; 
VDU19,0,1,0,0,0 

COLOUR 12 

COLOUR 139 
PRINTTAB (1,4) SPEC(17); 
PRINTTAB(1,5)" SPLAT 


PRINTTAB (1,6) SPC (17) ; 
COLOUR 128 
FOR I$-] TO 15 
SOUND 1,-5,255-10*1$,1] 
SOUND Ø,1%-15,7,2 
NEXT 
COLOUR 1 
PRINTTAB (X%, Y$) CHR$250; 
VDU2Ø 
IF X%>1Ø AX$=Ø:AMBS=" "+CHR$234 


+CHR$232 ELSE AX%=17:AMBS=CHRS231+CHRS 


234+" 1 


2080 FOR I%=Ø TO 15 

2090 IF AX%<X% PRINTTAB(AX%,Y%) AMBS: 
:AXS-AX24-] 

2100 IF AX%>X% AX$-AX$-]:PRINTTAB(AX 
$,Y$) AMBS; 


2119 
2120 
2138 
2140 
2159 
2160 
2170 
2180 
2190 


2200 : 


2219 
2220 
2230 
2240 

$,1 
2250 
2260 
2278 


FOR J$-0 TO 129 
SOUND&11,-12,J$,5 
NEXT 

FOR J%=J% TO Ø 
SOUND&11,-1$, JB, 5 
NEXT 

NEXT 

Y$-0 


ENDPROC 


DEF PROC CHUCKLE 


FOR I%=] TO 25 
FOR J$-] TO 3 
SOUND J%;-15+1%/3, 2ØØ-RND (3) *I 


NEXT 
NEXT 
N2$-N$-1:Y$-0:5$-5$t-25:A$ (XB) 20: 


ACORNS$-ACORNS$- 1 


2280 ENDERUS 


2290. 


2300 DEF PROC HARDER 
2310 FOR I$-T TO 3 
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2570 FOR I$-100 TO 206 STEP 12 


2320 FOR J%=3Ø TO 180 STEP5 

2330 SOUND &11,-12-I1$,J$412$*10,1 2580 SOUND 1,-15,1%,3 
2340 SOUND &12,-11-1%,J%+12+19*1Ø, I 2590 SOUND 2,-14,1%+8,3 
2350 NEXT 2600 NEXT 

2360 NEXT 2610 *FX15,1 

2370 S%=5%+1ØØ | EN | 2620  INPUT ""T$ 

2380 FOR I$-0 TO 19:A%(1%)=Ø:NEXT | 2630 T2-S$ 

2390 FOR I2-1 TO 4 | 2640 ENDPROC 

2400 | REPEAT 2650 : 


2410 J%=RND (17) +1 
2420 UNTIL A£(J2)-0 
2430 A%(J%)=) | 
2440 NEXT 


266Ø DEF PROC GAMEOVER 
2670 COLOUR 4 
2680 COLOUR 133 


© )e= 2690 CLS 
2450  ACORNS2-4 | 2700  PRINTTAB(5,3)"Super hog"; — 
2460  LEVELS$-LEVEL$42 2710 COLOUR 15 
2470 RS$(5)=STRINGS (LEVEL$ , CHR$255) +S 2720  PRINTTAB ( (20-LEN (T$) ) DIV2,6) T$; 
TRINGS (20-LEVEL3*2," ")+STRINGS (LEVELS 2730 COLOUR 4 
,CHR$255) 2740  PRINTTAB(5,11)"Top score"; 
2480 ENDPROC 2750 COLOUR Ø | 
2490 : 2760  PRINTTAB(8,13);T$; 
2500 DEF PROC TOPSCORE 2778 COLOUR 4 | = 
2518 COLOUR 3 2780 PRINTTAB(5,18)"Your score"; 
2520 COLOUR 129 2798 COLOUR Ø 
2538 CLS 2800 PRINTTAB(8, 20) ;S%; 
2540 PRINTTAB(1,3)"TOP-SCORE 2818 COLOUR 4 
E | 2820 PRINTTAB(4,3Ø) "Press any key"; 
2550 PRINTTAB(1,8) "Enter your name"; 2839 ENDPROC 


2560 PRINTTAB(1,1Ø); 


MAGIC EEL JOYSTICKS 


Some members have asked how to use joysticks with the Magic Eel game in the 
BEEBUG software library. To achieve this add the following four lines to the 
program. 

181 IF ADVAL(2)»550000 D=-4 
182 IF ADVAL(2)«15009. D=4 
183 IF ADVAL(1)«15000 D=8 
184 IF ADVAL(1) >5ØØØØ D--8 


This allows you to use the right hand joystick to control your eel. This will 
save wear and tear on the keyboard, but it does make the eél harder to control. 


Q9,9,9,9,0, 9, 0,0, 9, AT a a a a n e a 9,9,9,9,0,0,.9,9, 


MASTERFILE UPDATE 


Masterfile continues to be one of our most popular titles. Here are a few small 
changes to bring version 9.Ø up to the standard of version 9.1. They should be made 
to the SECOND program on the tape, not the first. ` 


Change line 3Ø2Ø Os SEO 
to 3020 eee re OPUS 


amend line 1561Ø NEXT:record=to 
amend line 2523Ø ......IF to<@ OR to>MR THEN 25230 


These changes make Masterfile into version 9.1, which should also be altered in. the 
initial REM statement ! B T 
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1.2 OPERATING SYSTEM ROM DEAL 
ACORN PRESS RELEASE TO BEEBUG MEMBERS 

A special arrangement has been agreed between Acorn and BEEBUG whereby BEEBUG 
members may obtain the Series One Machine Operating System in ROM at the price of 
£5.85 including VAT and post and packing. 

The ROM will be supplied with fitting instructions to enable members to install 
it in their machine. | 

If the computer does not subsequently operate correctly, members may take their 
machines to an Acorn dealer for the upgrade to be tested, which will be done at a 
charge of £6.ØØ plus VAT. This charge will be waived if the ROM is found to have 
been defective. If the computer has been damaged during the installation process, 
the dealer will make a repair charge. 


NOTES ON ORDERING 

1. To get a new ROM, BEEBUG members. should send a cheque, made payable to 
BEEBUG, for £5.85: to: ROM Offer,  BEEBUG, PO Box 109, High Wycombe, Bucks, 
HPll 2TD. It is ESSENTIAL to include a cheque with order, and to give your 
membership number. 

2. ROM orders must not be combined with any other order - eg for software etc. 
Multiple orders can be accepted but there can be no quantity discount in such 
cases, and the price of £5.85 per unit remains. 

3. Because of uncertainties in supply, please allow 4-6 weeks for delivery. We 
undertake not to cash cheques until the week prior to despatch; and we will 
provide a monthly account of the supply situation in BEEBUG. Please keep a 
note of the date on which you posted your order so that you can relate this to 
future announcements. | | | 

4. Please note that we cannot accept EPROM-based operating systems (Ø.1 or 1.9) 
in lieu of payment. The exchange of EPROMS for the new operating system can 
only be performed by Acorn dealers or by Acorn's service centre at Feltham. 


ROM Offer, BEEBUG, PO Box 109, High Wycombe, Bucks, HPI1 2TD 


Word Processor BEEBUG Discount 13% SAVE £5 


This is a highly sophisticated word processing package for the BBC Micro, and 
compares favourably with those currently available on other microcomputers. It 
makes full use of the BBC Micro's advanced facilities, and text is typed and edited 
in the 40 cloumn Teletext mode, saving memory, thus allowing it to be used with more 
or less any TV. Wordwise will work equally well on cassette or disc based systems, 


and it is easy to transfer files from cassette to disc if you upgrade at a Later 
date. 


Wordwise now includes a free "TYPING TUTOR" program. 


LNOTE: Wordwise requires a series 1 0S.J] 
The normal price of Wordwise is £39+VAT=£44.85 plus post and packing. 
To BEEBUG members the price is £33.88+90p(p&p)+VAT=£40 fully inclusive. 
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IF YOU WRITE TO US 


| . . n 
jail back issues are kept in print (from April 1982). Subscriptions Address || 
‘Send 9@p per issue PLUS an A5 SAE to the BEEBUG 
subscriptions address. This offer is for members Dept 1 | 
|only, so it is ESSENTIAL to quote your membership 374 Wandsworth Rd | 
||number with your order. Please note that  BEEBUG London [| 
supplements are not supplied with back issues. SW8 4TE | 
| 

|| SUBSCRIPTIONS 


opererer 
EE 


|Send all applications for membership, subscription renewals, and 
|| subscription queries to the subscriptions address. 
| Membership costs: £5.40 for 6 months (5 issues) 
: £9.99 for 1 year (10 issues) 
European Membership £16 for 1 year. 
Elsewhere - Postal Zone A £19, Zone B £2] 
K 


Lo TR i 


Zone C £23 


|| SOFTWARE AND ROM OFFER (Members onl Software Address 
| BEEBUG 
| These are available from the address opposite, which PO BOX 199 
is our NEW software address. (Note that this does Baker Street 
not apply to Wordwise - in this instance please see High Wycombe 


magazine for details). Bucks 
HPl] 2TD 


IDEAS, HINTS & TIPS, PROGRAMS, AND LONGER ARTICLES 


Substantial articles are particularly welcome and we Editorial Address 


will pay around £25 per page for these, but in this BEEBUG Ü 
case please give us warning of anything that you PO Box 50 [| 
intend to write. In the case of material longer St Albans | 
than a page, we would prefer this to be submitted on Herts u 
cassette or disc in machine readable form using AL] 2AR | 


"Wordwise", "Minitext Editor" or other means. If you 
|| use cassette, please include a backup copy at 309 
| baud. | 
|| We will also pay £10 for the best Hint or Tip that we publish, and £5 to the next 
|| best. Please send all editorial material to the editorial address opposite. If you 
require a reply it is essential to quote your membership number and enclose an SAE. | 


M 


V 


SN 


i mm Sm m id 
BEEBUG NEWSLETTER is edited and produced by Dr David Graham and Sheridan Williams. 
Technical Editor: Colin Opie. Production Editor: Phyllida Vanstone. 
Technical Assistant: Alan Webster. 

Thanks are due to John Yale, Adrian Calcraft, and Tim Powys-Lybbe for assistance 


with this issue. 


All reasonable precautions are taken by BEEBUG to ensure that the advice and data 
given to readers are reliable. We cannot, however, guarantee it, and we cannot 
accept legal responsibility for it, neither can we guarantee the products reviewed 
BEEBUG (c) June 1983. 
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To save wear and tear on fingers and 
brain, we will be offering each month 
a cassette of the programs featured 
in the latest edition of BEEBUG. The 
first program on each tape is a menu 
program, detailing the  tape's 
contents, and allowing the selection 
of individual programs. The tapes are 
produced to a high technical standard 
by the process used for the 
BEEBUGSOFT range of titles. Ordering 
information, and details of currently 
available cassettes are given below. 


Eru' 


a P ic 1 


Vol 1 no 1g: | Xol2no]- 
| Programs include: 5 Programs include: 


Programs include: 


3D Rotation Four in a Row Diamond Castle Adventure 
Life a Invasion Hedgehog 


Artillery Duel Music Composer Sound Wizard 

Square Dance Bar Chart Generator Ellipto 

Disc Formatter . | Basic Utility Editor Rotating/Expanding 
File Handler Double Height Routine Characters 
Micro-Sketch Disc Menu Program Multiple Function Keys 


Date validation Routine PLUS FULL LISTING OF Compact Machine Code 
| MINI TEXT ED VERSION 3, Procedure 
AND A PROGRAM TO PLAY PLUS FULL LISTING OF 
BEETHOVEN'S BAGATELLE IN SEIKOSHA SCREEN DUMP 


b FLAT (3 VOICES) 


PRICE:Members UK Only £3.50 inc p&p and VAT | 
Europe £4.50 inc p&p (VAT not charged) 


Elsewhere £5.00 inc p&p (VAT not charged) 
Please give membership number. Non-Members add 5@p per cassette. 


If ordering more than one tape, deduct 20p from the price of each. 


Make cheques payable to BEEBUG, and post to BEEBUG, PO Box 109, High Wycombe, 
Bucks, HP11 2TD. 


m 


A hard-backed binder for BEEBUG magazine is now av These binders are 
dark blue in colour with 'BEEBUG' in gold lettering on the spine. They allow 


you to use the whole of the first volume of the magazine as a single reference 
book. Individual issues may be easily added or removed. 


Binder price U.K. £3.90 inc p & p, and VAT. 


Europe £4.90 inc p & p (VAT not charged) 
Elsewhere £5.99 inc p & p (VAT not charged) 


Make cheques payable to BEEBUG. 


. Send to Binder Offer, BEEBUG, PO Box 109, Baker Street, High Wycombe, Bucks, 
X HP11 2TD. Please allow 28 days for delivery on U.K. orders. 


Printed in England by Staples Printers St Al 
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